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Zum Buchkonzept 


Eine saustarke Toolbox 


Sie besitzen Power BASIC und suchen Tools zur Unterstützung dieser 
Sprache? Sie programmieren in Power BASIC und benötigen Hilfestellung 
bei verschiedenen Problemen. Dann halten Sie genau das richtige in Ihren 
Händen, eine saustarke Sache. Hier wird Ihnen nicht zu x-ten mal der 
Sprachumfang von Power BASIC erklärt, sondern praxisnahe Utilities an 
die Hand gegeben. 


Werkzeuge zur Unterstützung der Programmentwicklung (wie z.B: Cross- 
Referenz-Generatoren, Programmformatierer, Druckerspooler, etc.) bilden 
unverzichtbare Hilfsmittel für jeden ernsthaften Power BASIC-Anwender. 
Sie tragen zur Reduzierung der Entwicklungszeit bei und unterstützen 
einen transparenten Programmierstil. Weitere Beispiel widmen sich der 
Implementierung von Textbearbeitungtools wie die UNIX-Utilities WC, CUT 
und PASTE. Treiber für die PostScript-Ausgabe unter DOS, oder die Sie 
Befehlserweiterungen für Batchprogramme (ASK, ESC, FKEY, GET, WAIT, 
XCALC) ermöglichen gänzliche neue Möglichkeiten für das Betriebssystem. 
Bibliotheken für die Maus oder Bildschirmsteuerung sind weitere 
behandelte Themen. 


Alle Beispiele werden schrittweise von den Anforderungen bis hin zur 
lauffähigen Lösung entwickelt. Die Programme sind ausführlich 
kommentiert und liegen im Quellcode auf Diskette bei. Die Toolbox stellt 
damit ein unverzichtbares Hilfsmittel für jeden ernsthaften Power BASIC- 
Anwender dar. 


Sie gehören noch zu den Einsteigern und trauen sich noch nicht an die 
Programmierung heran? Dann sollten Sie zumindest die fertigen 
Programme nutzen. Was halten Sie von einem fertigen PostScript-Treiber 
oder dem erweiterten DOS-Befehlssatz? Anschließend steigen Sie mit Hilfe 
des Buches schrittweise in die Programmierung ein. 


Sie sind bereits fortgeschritten und suchen gebrauchsfertige Bibliotheken 
und Beispielprogramme? Hier sind Sie genau richtig: die Bibliotheken zur 
Maussteuerung oder zur Erstellung von Pop-Up- und Pull-Down-Menüs 
verleihen Ihren Programmen ein professionelles Outfit und erleichtern den 
Umgang mit Power BASIC. 
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Vorwort 


Softwareentwicklung ist die Kunst, auf systematische Weise Algorithmen zu 
formulieren und zu Programmen zu kombinieren. Dabei kommt einer 
strukturierten und planvollen Vorgehensweise eine erhebliche Bedeutung 
zu. Ausgehend von einer Anforderung ist Schritt für Schritt der Weg zur 
fertigen Lösung zu beschreiten. 


Durch den breiten Einsatz der Personalcomputer befassen sich immer 
mehr Computeranwender mit der Entwicklung von Programmen. Nicht 
selten gelangt dabei PowerBASIC als Programmiersprache zum Einsatz. 
Dieser Compiler bietet eine gute Basis, um auch anspruchsvollere 
Lösungen zu erstellen. Leider findet der Einsteiger und fortgeschrittene 
Anwender nur wenig Literatur über die Programmentwicklung in Power 
BASIC. Sobald tiefergehende Problemstellungen auftreten, findet sich 
überhaupt nichts. 


Im Herbst 1991 kam bei Diskussionen mit Georg Weiherer die Idee auf, 
ein Buch zu Power BASIC zu schreiben. Material war aus früheren 
Projekten genügend vorhanden und so entstand recht schnell ein Konzept. 
Ziel war es, abgeschlossene Lösungen - schrittweise von der 
Anfangskonzeption über den Entwurf bis hin zur fertigen Implementierung 
- in Power Basic vorzustellen. 


Allerdings sollte es noch eine ganze Weile dauern, genau bis Sommer 92, 
bis das Projekt im Endstadium angelangt war. Das Warten hat, so glaube 
ich, sich gelohnt. Das Buch spricht einerseits den Einsteiger an, der 
systematisch in die Programmentwicklung eingeführt wird. Daß Basic 
nicht zwangsläufig zu Spaghetticode führen muß, sondern übersichtlich 
strukturierte Programme erlaubt, dies wird auf den folgenden Seiten 
gezeigt. Aber auch der Aufsteiger und fortgeschrittene Profi wird genügend 
Anregungen und Tips für die tägliche Praxis finden. Außerdem erhält jeder 
PowerBASIC-Anwender eine Sammlung praktischer Werkzeuge für den 
Umgang mit dem PC. Dies reicht von Tools zur Unterstützung der 
Programmentwicklung in PowerBASIC, über PostScript-Treiber und 
Textbearbeitungsfunktionen, bis hin zu Erweiterungen des MS-DOS 
Befehlssatzes. Die Bibliotheken zur Konstruktion von Menüsteuerungen, 
zur Maussteuerung oder zum Zugriff auf dBase-Daten eröffnen gänzlich 
neue Möglichkeiten. Nicht immer ließen sich alle Wünsche und 
Vorstellungen realisieren, da PowerBASIC schon einige Einschränkungen 
erzwingt. Es kann auch nicht ausgeschlossen werden, daß alle Fehler 
erkannt und behoben wurden. Dies beeinträchtigt aber nicht die 
Verwendbarkeit des vorliegenden Buches als Hilfsmittel für die Arbeit mit 
PowerBASIC. Für Hinweise und Verbesserungsvorschläge sind Verlag und 
Autor dankbar. 
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1 Einführung 


Mit PowerBASIC steht eine mächtige Sprache für die Programmierung 
unter DOS zur Verfügung. Das Konzept vereint die Vorteile der 
interpretativen Sprache »Basic!Syntaxfehler, DERen, anspruchsvollere 
Programmlösungen zu erstellen. Dadurch läßt sich PowerBASIC von einer 
breiten Benutzerschicht einsetzen. Die Ergebnisse müssen im Hinblick auf 
Laufzeitverhalten und Codelänge professionellen Lösungen in nichts 
nachstehen. 


Das vorliegende Buch greift diesen Gedanken auf, und bietet Anregungen 
zur Entwicklung eigener Programme. Ein Schwerpunkt liegt in 
Programmergänzungen zu PowerBASIC und MS-DOS. Dadurch gelangt 
der Anwender Schritt für Schritt zu einer Sammlung von Werkzeugen, die 
offene Wünsche befriedigen. Programme zur formatierten Druckerausgabe, 
Generatoren für Querverweislisten, Ausgabe beliebiger Dateien als 
Hexdump, Treiber für PostScript: dies sind nur einige Stichwörter zu den 
behandelten Themen. Auch wer sich mehr mit den alltäglichen Problemen 
beschäftigt, findet abgeschlossene Lösungen. 


Durch PowerBASIC lassen sich die Programme zusätzlich in schnellen 
Maschinencode übersetzen, so daß sie in ihrem Laufzeitverhalten kaum 
professionellen Produkten nachstehen. Daß diese Lösungen auch noch 
transparent und verständlich realisiert werden können, wird nachfolgend 
gezeigt. Dabei beschränkt sich das Buchkonzept nicht auf den Abdruck 
reiner Listings. Vielmehr wird - beginnend bei der konzeptionellen 
Festlegung über den Entwurf bis hin zur Implementierung - jede Lösung 
stufenweise besprochen. Das Listing ist deshalb nur ein untergeordneter 
Teil des jeweiligen Abschnitts. 


Dieses Vorgehen spiegelt den Ablauf der Software-Entwicklung wieder, so 
daß der Weg bis zur Lösung leichter nachvollziehbar ist. Zusätzliche 
Hinweise und Anregungen sollen schließlich zu eigenen Erweiterungen 
anregen. 


Die Programmentwicklung direkt am Rechner ist zwar bei vielen 
Programmierern verbreitet. Die vermeintlich gewonnene Zeit geht aber 
spätestens bei der Fehlersuche verloren, ganz zu schweigen von der 
Qualität dieser Programme. Transparenz und Wartbarkeit sind kaum 
gegeben, wodurch insbesondere Lösungen in Basic negativ hervortreten. 
Aber dies muß nicht unbedingt so sein. 


Aus umfangreicheren Entwicklungsvorhaben resultiert die Erfahrung, daß 
die Erstellung von Software in mehreren Phasen erfolgen sollte. Die 
nachfolgenden Kapitel berücksichtigen diesen Ansatz, indem sie neben 
dem Programmlisting insbesondere die Überlegungen in den 
vorhergehenden Phasen beschreiben. Da nicht jedem Leser die 
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verwendeten Begriffe vertraut sind, werden diese nachfolgend kurz 


erläutert. 


Bild 1.1: Grafische Darstellung eines Syntaxdiagramms 





Die Entwicklung einer Software beginnt mit der Analyse der 
Anforderungen. Innerhalb dieser Spezifikationsphase dienen teilweise 
Syntaxdiagramme zur Beschreibung einzelner Sachverhalte. Bild 1.1 zeigt 
ein solches Diagramm, mit dem die Erzeugung von Worten aus 
Kleinbuchstaben des Alphabets beschrieben wird. Ausgehend von einem 
Startpunkt in der linken Ecke läßt sich das Diagramm beliebig oft 
durchlaufen, wobei jeweils ein Buchstabe (a... z) an das bereits bestehende 
Teilwort angehängt wird. Ist das Wort komplett, wird das Syntaxdiagramm 
verlassen. Mit diesem Verfahren lassen sich viele Zusammenhänge einfach 
aber präzise darstellen. 





Fe 





EN 














Bild 1.2: Modul- oder Hierarchiediagramm 
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Zusätzlich ist im Rahmen der Spezifikation die Bedieneroberfläche des 
Programmes festzulegen. In jedem Kapitel werden deshalb die 
Vorüberlegungen zur Erstellung der Software diskutiert. Erst dann erfolgt 
der Entwurf des Programmes. Um auch komplexere Aufgabenstellungen 
zu beherrschen, bietet es sich an, durch Modularisierung kleinere Teile zu 
schaffen, die leichter zu bearbeiten und zu handhaben sind. Alle 
Teilfunktionen werden dann schrittweise zur Gesamtlösung 
zusammengebaut. Um den Zusammenhang der einzelnen Module zu 
verdeutlichen, werden in diesem Buch Hierarchie- oder Moduldiagramme 
(Bild 1.2) benutzt. 


Diese Diagramme zeigen den abstrahierten funktionalen und/oder 
datenmäßigen Zusammenhang, ohne durch Details in der Realisierung der 
Module zu verwirren. 


Hinweis: Hierarchiediagramme werden zwar üblicherweise in vertikaler 
Richtung aufgebaut. Um die Darstellung zu vereinfachen, wurde aber 
obige Anordnung gewählt. 








Sequentieller Programmablauf 
Anweisung 
U + Aufruf eines Unterprogramms 
| 
I — ——— 
verzweigung 
4 Abfragebedingung 
Anweisung im JA-Zweig 
Anweisung im NEIN-Zweig 
e der Abfrage 
Schleife 
N Schleifenanfang 
| 


A 1 
Anweisung 
Anweisung 


— 4 Schleirenende 


Bild 1.3: Darstellung des Programmablaufs mit Strichdiagrammen 
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Nach Zerlegung der Aufgabe in kleinere Pakete lassen sich die jeweiligen 
Funktionen durch Basic-Programme realisieren. Es hat sich in der Praxis 
als vorteilhaft erwiesen, vorher den Grobablauf des Programmes zu 
entwerfen. Bekannte Hilfsmittel hierfür sind Flußdiagramme und 
Strukturdiagramme (Struktogramme). Beiden Methoden haftet der 
Nachteil an, daß die grafische Darstellung aufwendig ist. Insbesondere bei 
Änderungen muß viel umgezeichnet werden. Ich benutze deshalb bereits 
seit einigen Jahren erfolgreich eine Abstraktion der Struktogramme in 
Form von Strichdiagrammen. Diese lassen sich sehr gut mit Texteditoren 
erstellen und pflegen. Sie zeigen den Programmfluß in Form von Linien, 
die die Darstellungen in Bild 1.3 verwenden: 


Wichtig ist, daß diese Strichdiagramme so abstrahiert werden, daß sich 
der Programmablauf auf einem Blatt darstellen läßt. Notfalls können 
einzelne Punkte auf weiteren Blättern verfeinert werden. Mit etwas Übung 
lassen sich so recht schnell die Ablauf- und Kontrollstrukturen eines 
Programmes entwerfen, was sich in der Qualität des Programmentwurfs 
deutlich niederschlägt. 


Nachdem die Struktur in dieser Form vorliegt, beginnt die eigentliche 
Programmierung. Es wird auf die Eingabe der üblichen Basic- 
Zeilennummern gänzlich verzichtet. Weiterhin sind die Programme 
ausgiebig kommentiert, um später die Einarbeitung zu erleichtern. 
Kommentare lassen sich in PowerBASIC nach wie vor mit dem 
Schlüsselwort REM eingeben. Um das Listing besser strukturieren und 
optisch gestalten zu können, wurde jedoch für Kommentare die 
Zeichenkombination '! gewählt. Das Ausrufezeichen dient nur zur 
optischen Signalisierung und gehört eigentlich nicht mehr zum 
Kommentar. Weitere Einzelheiten lernen Sie in den folgenden Kapiteln 
kennen. 
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2 Werkzeuge für PowerBASIC 


In diesem Kapitel möchte ich einige Werkzeuge zur Unterstützung der 
Softwareentwicklung in PowerBASIC vorstellen. Es handelt sich dabei um 
Programme, die ich in den letzten Jahren für eigene Zwecke geschrieben 
und mittlerweile an PowerBASIC angepaßt habe. Neben der Aufbereitung 
von Programmtexten für die Druckerausgabe gehört ein Cross-Referenz- 
Generator für PowerBASIC dazu. Damit lassen sich auch umfangreichere 
Programme entwickeln und pflegen. 


LISTER: Formatierte Druckerausgabe von 
Quellprogrammen 


Die Programmerstellung erfolgt bei vielen Programmierern direkt am 
Bildschirm. Ich persönlich bevorzuge dagegen die Programmentwicklung 
auf einem Blatt Papier, d.h. der Programmentwurf entsteht auf dem Papier 
und wird erst dann in den Rechner eingegeben. Nach dem Editieren wird 
sofort ein Listing ausgegeben, mit dem dann die Fehlersuche und 
Weiterentwicklung des Programmes erfolgt. 


Allerdings besteht unter PowerBASIC ein Problem: Programmlistings 
lassen sich nur mit den DOS-Befehlen PRINT oder COPY auf dem Drucker 
ausgeben. Bei intensiver Programmiertätigkeit treten aber früher oder 
später Schwierigkeiten auf. Einmal sind die Ausgaben von PRINT oder 
COPY nicht an den Drucker angepaßt. Bei mehrseitigen Programmen wird 
dann meist über die Perforation zwischen den Seiten gedruckt. Dies ist 
nicht nur optisch störend, sondern auch die Ablage in Ordnern wird so 
verhindert, da beim Auftrennen meist eine Zeile verloren geht. Bei 
manchen Druckern läßt sich zwar softwaremäßig die Zahl der Druckzeilen 
pro Seite einstellen. Aber dies ist keine überzeugende Lösung und 
erfordert meist ein entsprechendes Steuerprogramm. 


Weiterhin läßt sich mit diesem Trick folgendes Handicap nicht beheben: 
Bei umfangreicher Programmentwicklung liegt nach einiger Zeit ein Stapel 
Listings vor. Dann beginnt die Raterei: wie heißt doch noch gleich die 
Quelldatei zu diesem Listing? Wann wurde das Listing ausgedruckt? 
Entspricht das Listing auch der neuesten Programmversion? Sicher, mit 
entsprechender Disziplin lassen sich einige dieser Probleme beheben. Aber 
wer hält in der Hitze des Gefechts schon eisern Disziplin? Und überhaupt, 
warum kann nicht der Computer die Aufgabe übernehmen, ein sauber 
formatiertes Listing zu erzeugen. Was fehlt, ist ein Programm zur Ausgabe 
von Listings auf dem Drucker, welches allen Ansprüchen genügt. Da der 
Hersteller von PowerBASIC dies nicht standardmäßig liefert, bleibt nur die 
Eigenentwicklung. PowerBASIC bietet hier sicherlich die Möglichkeit zur 
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Realisierung eines geeigneten Programmes. Das nachfolgend vorgestellt 
Programm ist daher der erste Ansatz für eine Lösung. Im nächsten 
Abschnitt werden dann einige Verfeinerungen gezeigt. 


Bevor wir uns in die Entwicklung stürzen, sollten vorher die 
Anforderungen geklärt und spezifiziert werden. Welche Wünsche stehen 
eigentlich an? 


Die Spezifikation 


Als erstes soll das Programm nach einer vordefinierten Zeilenzahl einen 
Seitenvorschub im Listing einsetzen. Damit ist endlich das Problem gelöst, 
daß einzelne Zeilen genau auf dem Perforationsrand ausgedruckt werden. 
Wegen der verschiedenen Papierformate sollte die Zahl der Zeilen pro 
Druckseite variabel definierbar sein. Um anhand des Listings auch nach 
einiger Zeit auf den Dateinamen schließen zu können, muß auf jeder 
Druckseite der entsprechende Dateiname erscheinen. Zusätzlich ist eine 
fortlaufende Seitennumerierung durchzuführen. Schön wäre es weiterhin, 
wenn zumindest auf der ersten Seite das Datum des Ausdrucks enthalten 
ist. Ein weiteres Ärgernis betrifft die Einstellung des linken und rechten 
Druckrandes. Falls das Papier falsch eingespannt ist, oder der Text nicht 
in eine Zeile paßt, wird häufig über den Papierrand gedruckt. Steht der 
Text zu weit links, gehen beim Lochen der Blätter einzelne Buchstaben 
verloren. Um dies zu beheben, sollte eine variable Einstellung des linken 
und rechten Druckrandes möglich sein. Diese Anforderungen bringen 
bereits einigen Komfort in das Programm. Weitere Wünsche kommen aber 
noch hinzu. Vielfach ist es so, daß ein Programmlisting keine 
Zeilennummern enthält. Auch PowerBASIC setzt diese nicht mehr voraus. 
Oft ist aber eine Numerierung der Ausgabezeilen erwünscht. Deshalb muß 
diese Option wahlweise zu- oder abschaltbar sein. Dies bringt aber sofort 
ein Problem mit sich: Es dürfen nur die Zeilen im Originalprogramm 
numeriert werden. Falls die Druckbreite eine Aufteilung auf mehrere 
Zeilen erfordert, ist immer nur die erste Zeile zu numerieren. Optisch 
schön ist es weiterhin, wenn die dann zu umbrechenden Folgezeilen in der 
gleichen Spalte wie die erste Zeile beginnen (Bild 2.1). 


21 IF as = 10 THEN 


22 z%$ = INSTR(20,textvariable$, 
"dies ist ein Test" 
23 ENDIF 


24 len = len + 1 


Bild 2.1: Einrückung von Folgezeilen 
Nachdem nun die Basisfunktionen geklärt sind, gilt der nächste Schritt 


der Gestaltung der Bedienoberfläche. Hier ergeben sich zwei Wege zur 
Benutzerführung. Naheliegend ist ein interaktiver Dialog, der die 
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benötigten Parameter abruft. Nachfolgend wird die zu realisierende 
Benutzeroberfläche beschrieben. 


Wird das Programm mit der Eingabe: 


LISTER 
aufgerufen, ist der Bildschirm zu löschen und die Kopfmeldung erscheint: 





LISTER (ce) Born Version 1.0 

Optionen [ /L=00 linker Rand /R=75 rechter Rand ] 
[ /Z=60 Zeilen pro Seite /N Zeilennumerierung ] 

File 

Optionen : 


Bild 2.2: Kopfmeldung des Programms LISTER 


Als Dateiname darf jede gültige MS-DOS-Bezeichnung einschließlich 
Laufwerks- und Pfadbezeichnung verwendet werden. Die Abfrage der 
»Optionen« soll allerdings erst nach Eingabe des Dateinames erfolgen. Die 
im Kopftext eingetragenen Werte zeigen die Standardeinstellung. Falls die 
Frage nach den Optionen durch Betätigung der Eingabetaste übergangen 
wird, übernimmt das Programm die Standardeingaben. In der 
vorliegenden Implementierung gilt: 


Linker Rand bei Spalte 0 

Rechter Rand bei Spalte 75 
Zeilen pro Seite 60 
Zeilennumerierung Aus 


Tabelle 2.1: Standardparameter für LISTER 


Dadurch wird in vielen Fällen eine brauchbare Ausgabe ermöglicht. Die 
Optionen dürfen zwar in beliebiger Reihenfolge eingegeben werden, das 
Format ist jedoch gemäß obigen Angaben aufzubauen. Jede Option 
beginnt mit dem Zeichen »/«, gefolgt von einem Großbuchstaben für die 
Option. 


/L=xx linke Randeinstellung 
/R=xx rechte Randeinstellung 
/2=xx Zeilen pro Druckseite 
/N Zeilennumerierung ein 


Tabelle 2.2: Optionen beim Aufruf von LISTER 


Bei numerischen Werten ist zwischen der Zahl und dem Buchstaben das 
Gleichheitszeichen erforderlich. Die Optionen sind durch ein Leerzeichen 
zu trennen. Nachfolgend sind einige gültige Optionen angegeben: 

/N 

/L=10 /Z=55 /R=60 /N 

/L=5 

/N /R=60 
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Fehlerhafte Eingaben (z.B. linker Rand größer als rechter Rand etc.) sind 
durch das Programm abzufangen. In diesem Fall erscheint die 
Fehlermeldung: 


Bitte Randeinstellung neu setzen 


Wird kein Dateiname eingegeben, bricht das Programm mit folgender 
Meldung ab: 


Der Dateiname fehlt 


Existiert die angegebene Datei nicht, endet das Programm ebenfalls mit 
der Meldung: 


Die Datei <Name> existiert nicht 


Wird eine Datei gefunden, beginnt die Ausgabe mit dem Hinweis: 
Die Datei <Name> wird auf dem Drucker ausgegeben 
Name steht dabei für den eingegebenen Dateinamen. Gleichzeitig erfolgt 


auf dem Drucker die Ausgabe des Inhalts der Textdatei mit Dateiname, 
Datum und Seitennummer zu Beginn jeder Seite: 


LISTER /L=5 /R=74 /Z-=55 /N (C) Born Version 1.0 

Datei: <filename> Datum: MM/TT/JJ Seite : 1 
1 !RRARARRRRRKRRKKRK RT TH TH TH KT TH TH TH KH TH TH TH TH TH TH KT TH KH TH KH KH KH A U 
2 "File : LISTER.BAS 
3 ' Vers. :- 2,0 
4 '‘ Last Edit : 20.4.92 
5 ' Autor : G. Born 
6 ' File I/O : INPUT, OUTPUT, FILE, PRINTER 
7‘ Progr. Spr.: POWERBASIC 
8. U "BEE... SYS“ © DOS 2..1.= 5,0 
9 ' Funktion: Das Programm dient zur Ausgabe von Listings mit 
10 '! Seitennummern, Datum, Dateinamen und einer wähl- 
11! baren Zeilennumerierung. Weiterhin wird nach n 
12.4 Zeilen ein Papiervorschub auf dem Drucker ausge- 
13: löst. Es lassen sich beliebige Textdateien mit 
14 ! diesem Programm ausgeben. 
154 
16 ' Aufruf: LISTER Filename /Optionen 
17 Optionen: /N Zeilennumerierung ein [Aus] 
18 !' /Lxx linker Rand [Lo] 
19 ! /Rxx rechter Rand [75 ] 
20 ! /2xx Zeilen pro Seite [60 ] 
2 “ 
DD N Die Werte in [] geben die Standardeinstellung 
23.4 wieder. Wird das Programm ohne Parameter aufge- 
24 rufen, sind Dateiname und Optionen explizit ab- 
25 ! zufragen. Mit dem Aufruf: 
26 ' 
27." LISTER /? 
28 
29 wird ein Hilfsbildschirm ausgegeben. 
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30 ' KAKKKKKKKKKAKKKKKKTK KH TH KK KH KH HK KH TH KH KH HK KH KK KH TH KK TH KK KH KK KK K AH KH TK AK KH A KH KH A KH &UO 
31 ' Variable definieren 
32 on = 1: %off = O 

33 nummer% = off 

34 zeile& = 0 

35 seite% = 1 

36 maxzeile% 
37 rechts% = 
38 links% = 0 
39 spalte% = 0 


! keine Zeilennummern 
! Zeilennummer Listing 
! Seitennummer Listing 
! Zeilen pro Seite 

! rechter Rand 

! linker Rand 

! Einrückung 


= 60 
75 


Bild 2.3: Ausgabeformat auf dem Drucker 


Die Kopfzeile mit den Information über die Aufrufparameter: 


LISTER /L=10 /R=70 /N (ce) Born Version 1.0 


soll allerdings nur auf der ersten Druckseite erscheinen. Nachdem die 
Ausgabe beendet ist, soll sich das Programm mit folgender Meldung 
verabschieden: 


Ausgabe beendet 


Anschließend erscheint die DOS-Systemmeldung wieder auf dem 
Bildschirm. 


Damit scheint die Bedieneroberfläche auf den ersten Blick hinreichend 
beschrieben. Oft benutzt der Softwareentwickler jedoch Batchdateien zur 
Bearbeitung der Programme. Auch PowerBASIC bietet die 
Kommandozeilenversion. Hier lassen sich alle Kommandos und Eingaben 
von der DOS-Kommandoebene oder aus der Stapelverarbeitungsdatei 
übernehmen. Dann ist es natürlich äußerst störend, wenn zum Beispiel 
der Ablauf der Stapeldatei durch Benutzerabfragen unterbrochen wird. 
Hier muß ein Aufruf mit Parameterübergabe aus der Kommandoebene 
möglich sein. Diese Aufrufform ist von den MS-DOS-Kommandos (DIR *.* 
/w hinreichend bekannt. Unser Ausgabeprogramm soll sich gemäß 
folgender Notation von der DOS-Oberfläche starten lassen: 


LISTER Dateiname /Optionen 


Sobald im Aufruf der Dateiname mit angegeben wird, schaltet das 
Programm in den Kommandomodus. Der oben beschriebene Dialog mit 
Kopfmeldung und Benutzerabfragen darf nicht mehr erscheinen. Lediglich 
Fehlermeldungen sind noch auf dem Bildschirm zulässig. Werden keine 
Optionen eingegeben, dann übernimmt das Programm die voreingestellten 
Standardwerte. Als Randbedingung gilt, daß der Dateiname immer zuerst 
einzugeben ist. Die Optionen müssen durch mindestens ein Leerzeichen 
vom Dateinamen getrennt werden. Die folgenden Eingaben stellen gültige 
Aufrufe des Programms dar: 


LISTER Datei 
LISTER Datei /N /L=2 /R=15 /Z=69 
lister datei /N 
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Um es nochmals zusammenzufassen: Durch Eingabe des reinen 
Programmnamens (LISTER) wird die interaktive Benutzeroberfläche 
selektiert. Sobald in der Kommandozeile der Name der Ausgabedatei 
erscheint, befindet sich das Programm im sogenannten Kommandomodus. 
Dann sind alle Eingabeparameter in der Kommandozeile einzutragen und 
durch das Programm zu lesen. 


Als letzter Punkt soll das Programm noch eine Online-Hilfe bieten. In 
Anlehnung an DOS 5.0 wird diese Online-Hilfe mit folgender Option 
abgerufen: 


LISTER /? 


Dann muß auf dem Bildschirm folgender Hilfstext erscheinen: 





LISTER (ce) Born Version 1.0 
Aufruf: Lister <Filename> <Optionen> 

Optionen: 

/L=00 setzt den linken Rand 

/R=75 setzt den rechten Rand 


/Z=60 setzt die Zeilenzahl pro Seite 
/N schaltet die Zeilennumerierung ein 





Das Programm gibt ein Listing der Datei aus, wobei sich 
die Ränder und die Zahl der Zeilen einstellen läßt. 


Danach bricht das Programm und der DOS-Prompt erscheint wieder. 


Der Entwurf 


Das Programm ist zweckmäßigerweise in mehrere Module zu unterteilen, 
deren Zusammenführung in Bild 2.4 gezeigt wird. 
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Quell- 
datei parameter I ———e getval 


| Eu 
ki 
| | 


Bild 2.4: Modulhierarchie des Programmes LISTER 


Printer 











Die Steuerung der Benutzereingaben sowie der Hauptablauf wird in das 
Modul main verlegt. Der Ablauf innerhalb dieses Moduls wird an 
folgendem Strichdiagramm (Bild 2.5) deutlich. 


+ Variablen definieren und initialisieren 
—— Dateiname und Optionen in Kommandozeile vorhanden? 


Eröffnungsmel dung 
Dateiname und Optionen vom Benutzer erfragen 
Dateiname und Optionen aus Kommandozeile separieren 


Optionen decodieren { parameter } 


4 
ul 
Dateiname vorhanden? 
N J 





Programmabbruch mit Fehlermeldung 

+ Datei öffnen 

U + Seitenkopf auf Drucker erzeugen { pageskip } 
—— uHHILE Dateiende (EOF) nicht erreicht 





Lese eine Zeile 

U Ausgabe auf den Drucker { ausgabe } 
— WHILE Ende 

Datei schließen 


Ende Meldung 
Programm-Ende 


Bild 2.5: Programmablauf in LISTER.BAS 
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Der Ablauf innerhalb der Hilfsmodule ist recht einfach, so daß auf eine 
Darstellung in Form von Strichdiagrammen verzichtet wird. 


Die Implementierung 


Das Programm besitzt die oben gezeigte Modulstruktur. Aufbau und 
Funktion dieser Module sollen nun kurz beschrieben werden. 


Hauptprogramm 


In diesem Modul sind die Variablen zu definieren und zu initialisieren. 
Hier lassen sich auch die Standardwerte für die Randeinstellung vorgeben. 
Die Zahl der auszugebenden Zeilen pro Seite wird in der Variablen 
maxzeile% geführt. Erreicht der aktuelle Zeilenzähler (szeile%) diesen Wert, 
erfolgt ein Papiervorschub und eine neue Seite (seite%) wird ausgegeben. 
Falls der Dateiname in der Kommandozeile enthalten ist, ist dieser mit den 
Optionen in die Variablen filename$ und options$ zu separieren. In diesem 
Fall kann auf die Ausgabe der Kopfmeldung verzichtet werden. Andernfalls 
erscheint die Kopfmeldung und der Name des auszugebenden Files sowie 
die Optionen werden abgefragt. Durch die Angabe: 


ON ERROR GOSUB fehler 

werden mögliche Fehler abgefangen. Hierzu zählen auch nicht vorhandene 
Dateien. Existiertt diese nicht, liefert das Unterprogramm eine 
Fehlermeldung und bricht den Ablauf ab. Andernfalls wird der erste 
Seitenkopf mittels pageskip auf dem Drucker ausgegeben. Dies ist 
möglich, da der Wert von szeile% auf den Wert von maxzeile% gesetzt 
wurde. Mit der Schleife 


WHILE NOT (EOF (datei)) 
LINE INPUT #datei, linie$ 
GOSUB ausgabe 

WEND 


wird die Datei zeilenweise gelesen und über das Modul »ausgabe« 
verarbeitet. Ist das Dateiende erreicht, wird die Schleife verlassen, die 
Daten geschlossen und das Programm beendet. 


Die Lister-Hilfsmodule 


Um den Aufbau des Programmes transparent und änderungsfreundlich zu 
gestalten, gelangen mehrere Unterprogramme zum Einsatz. Dadurch 
konnte insbesondere das Hauptprogramm sehr kompakt gehalten werden. 


pageskip 


Zur Ausgabe des Programmkopfes auf den Drucker wurde bereits der 
Aufruf GOSUB pageskip erwähnt. Dieses Modul prüft bei jedem Aufruf, ob 
die aktuell ausgegebene Zeilenzahl (szeile%) den Grenzwert (maxzeile%) 
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erreicht hat und veranlaßt gegebenenfalls einen Seitenvorschub, wobei die 
Anweisung: 


LPRINT CHR$ (12) 
das Steuerzeichen (Form Feed = 12) an den Drucker ausgibt. 
Anschließend protokolliert pageskip den Dateinamen, das Datum und die 
aktuelle Seitennummer. 


ausgabe 


Dieses Unterprogramm bearbeitet die in der Variablen linie$ übergebenen 
Texte für die Druckerausgabe. Zuerst werden so viele Leerzeichen 
ausgegeben, daß die linke Randeinstellung stimmt. Bei eingeschalteter 
Zeilennumerierung wird die aktuelle Zeilennummer (zeile&) ausgegeben. 
Dann kann der Druck des eigentlichen Textes beginnen. Übersteigt die 
Satzlänge den spezifizierten Druckbereich (rechts - links), dann erfolgt 
eine Aufteilung auf mehrere Ausgabezeilen. Dabei ist auf eine korrekte 
Einrückung der Folgezeilen zu achten. In der Variablen spalte% wird der 
Beginn der Druckspalte gespeichert. Bei Erreichen der maximalen 
Zeilenzahl pro Seite sorgt der Aufruf von pageskip für einen Seitenwechsel. 


skipblank 


Dieses kleine Hilfsprogramm ermittelt lediglich die Zahl der führenden 
Leerzeichen in einer eingelesenen Textzeile. Dieser Wert dient zur 
Bestimmung der Einrückung für die Folgezeilen. 


parameter 


Das Unterprogramm ist für die Decodierung der Eingabeoptionen 
zuständig. Normalerweise werden Eingaben einer kompletten 
Syntaxanalyse unterzogen. Aus Aufwandsgründen benutzt das Modul eine 
sehr einfache aber wirkungsvolle Strategie zur Erkennung gesetzter 
Optionen. Mit Hilfe der Basic-Funktion INSTR wird einfach der Inhalt der 
Variablen options$ nach den Zeichenmustern für die jeweiligen Optionen 
abgefragt. Wird ein gültiger Schalter erkannt (/L=), dann kann der 
Eingabewert decodiert werden. Anschließend überschreibt das eingelesene 
Ergebnis die Standardeinstellung. Durch sukzessive Abfrage der 
verschiedenen Möglichkeiten lassen sich alle Optionen ermitteln. 


getval 


Hier handelt es sich um ein echtes Unterprogramm, welches als Parameter 
die jeweils zu setzende Variable erhält. In dem Programm wird der String 
options$ ab der Position ptr%+3 untersucht. Hier findet sich der 
eingegebene Wert als ASCI-Zahl. Zuerst muß das Ende der Zahl gefunden 
werden. Dies wird durch ein Leerzeichen oder das Textende signalisiert. 
Dann ist der Wert in ein numerisches Format zu codieren und 
zurückzugeben. 
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fehler 


Dieses Modul bildet den Fehlerausgang des Programmes LISTER. Es wird 
immer dann durch Basic aktiviert, wenn Laufzeitfehler auftreten. 


Einzelheiten über den Programmablauf sind dem Listing zu entnehmen. 
Das Programm eignet sich nicht nur zur Ausgabe von Basic-Listings. Auch 
bei Turbo Pascal, dBase etc. treten ähnliche Probleme (fehlende 
Dateinamen und Datum, Druck über die Perforation etc.) auf. Selbst 
normale Textdateien lassen sich so formatiert ausgeben. 


Erweiterungsvorschläge 


Das Programm benutzt die Anweisung LPRINT für die Ausgabe auf den 
Drucker. Wer die Ausgabe in beliebige Dateien umleiten möchte, kann alle 
LPRINT-Statements durch »PRINT #aus « 


xREF /2=55 (ce) Born Version 1.0 
Datei : lister.bas Datum : 05-12-1992 Seite : 1 
Zeile Anweisung 


V KAKKAKKKKHHKKTK KHK KH KK KH HK TH KH HK KH KK KH KK KH KK KH KK KH KK KH KH KH KH TH KH KK KH KK KH HK AH U KU 





' File : LISTER.BAS 

' Vers. : 1.0 

' Last Edit : 20. 4.92 

' Autor : G. Born 

' File I/O : INPUT, OUTPUT, FILE, PRINTER 

' Progr. Spr.: POWERBASIC 

' Betr. Sys. : DOS 2.1 - 5.0 

' Funktion: Das Programm dient zur Ausgabe von Listings mit 


. Seitennummern, Datum, Dateinamen und einer wähl- 
' baren Zeilennumerierung. Weiterhin wird nach n 

! Zeilen ein Papiervorschub auf dem Drucker ausge- 
! löst. Es lassen sich beliebige Textdateien mit 

! diesem Programm ausgeben. 


' Aufruf: LISTER Filename /Optionen 

! Optionen: /N Zeilennumerierung ein [Aus] 

! /Lxx linker Rand [Lo] 

! /Rxx rechter Rand [75 ] 

! /2xx Zeilen pro Seite [60 ] 

1 

' Die Werte in [] geben die Standardeinstellung 


ı wieder. Wird das Programm ohne Parameter aufge- 
! rufen, sind Dateiname und Optionen explizit ab- 
i zufragen. Mit dem Aufruf: 


\ LISTER /? 
i wird ein Hilfsbildschirm ausgegeben. 


V KAKKAKKKKHKKHKHKK HK KH TH TH KH KH HK KH KH TH TH KH KK KH KK KK TH KH TH HK TH KH KK KH TH KH KH HK AH KH AK AH KH KU &„ 


' Variable definieren 
1 gon = 1: %off = 0 
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zeile& 
seite? 


links% 


o oNAaurWN 


9 datei? 


nummer? = 
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soff 


0 
=1 


maxzeile% = 60 
rechts% = 75 


= 0 


spalte% = 0 


=2 


keine Zeilennummern 
Zeilennummer Listing 
Seitennummer Listing 
Zeilen pro Seite 
rechter Rand 

linker Rand 
Einrückung 





'! Dateinummer 


10 ON ERROR GOTO fehler 


Fehlerausgang 


"HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HHHHHH 

















'# Hauptprogramm # 
HH HH HH HH HH HH HHHHHHHHEHHHEH 

11 kommando$ = COMMANDS 'ı Parameter? 

12 IF LEN (kommando$) = 0 THEN 'ı User Mode? 

13 CLS 'ı clear Screen 

14 PRINT "LISTER (c) Born 
Version 1.0" 

15 PRINT 

16 PRINT "Optionen [ /L=00 linker Rand /R=75 rechter 
Rand ] 

" 

17 PRINT " [ /Z=60 Zeilen pro Seite /N 

Zeilennumerierung ] 
" 

18 PRINT 

19 INPUT "File ",£filename$ 

20 INPUT "Optionen " options$ 

21 PRINT 

22 ELSE 

23 ptr% = INSTR (kommando$,"/?") '! Option /? 

24 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 

25 PRINT "LIS TER (ce) Born Version 1.0" 

26 PRINT 

27 PRINT "Aufruf: LISTER <Filename> <Optionen>" 

28 PRINT 

29 PRINT "Optionen :" 

30 PRINT 

3 PRINT " /L=00 setzt den linken Rand" 

32 PRINT " /R=75 setzt den rechten Rand" 

33 PRINT " /Z=60 setzt die Zeilenzahl pro Seite" 

34 PRINT " /N schaltet die Zeilennumerierung ein" 

35 PRINT 

36 PRINT "Das Programm gibt ein Listing der Datei aus, wobei 
sich" 

37 PRINT "die Ränder und die Zahl der Zeilen einstellen läßt." 

38 PRINT 

39 SYSTEM 

40 END IF 

41 'ı Kommando Mode 

42 ptr% = INSTR (kommando$,"/") '! Optionen? 
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43 IF ptr% = 0 THEN 
44 filename$ = kommando$ '! nur Filename 
45 ELSE 
46 filename$ = LEFT$ (kommando$,ptr% -1)'! Filename separieren 
47 options$ = MIDS$S (kommando$,ptr%) '! Optionen separieren 
48 END IF 
49 END IF 
50 GOSUB parameter 'ı Optionen decodieren 
51 IF (rechts% < links%) or (maxzeile% < 10) THEN '! sinnlose 
52 PRINT 'ı Einstellung 
53 PRINT "Bitte Randeinstellung neu setzen" 'ı Fehlerexit 
54 SYSTEM 
55 END IF 
56 IF filename$ = "" THEN '! Leereingabe? 
57 PRINT 
58 PRINT "Der Dateiname fehlt" 
59 SYSTEM 
60 END IF 
' prüfe ob Datei vorhanden, nein -> exit 
61 OPEN filename$ FOR INPUT AS #datei% 
62 PRINT 
63 PRINT "Die Datei: ";filename$;" wird auf dem Drucker 
ausgegeben " 
64 GOSUB pageskip '! Seitenkopf ausgeben 
65 WHILE NOT (EOF (datei?)) '! datei sequentiell 
lesen 
66 LINE INPUT #datei%, linie$ 'ı lese Zeile 
67 GOSUB ausgabe 'ı drucke Zeile 
68 WEND 
69 LPRINT CHR$ (12) '! Seitenvorschub 
70 CLOSE #datei% '! Datei schließen 
71 PRINT 
72 PRINT "Ausgabe beendet" 
73 END 
HEHE HEHE HH HH HH HH HH HH RHHH HH HH HH HH HH HHEHHHHEH 
'# Hilfsroutinen # 
HH HEHE HH HH HH HH HH HRHHH HH HH HH HH HH HH HHEHH HH 
74 fehler: 
We a a a a a a N a a a a a a a a a a a a En a E  a 
'ı Fehlerbehandlung in LISTER 
Vu sysasenskszsltsszssisusii sh Banken 
75 IF ERR = 53 THEN 


76 


PRINT "Die Datei ";filename$;" existiert nicht" 
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77 ELSE 

78 IF ERR = 27 THEN 

79 INPUT "Druckerstörung, bitte eine Taste betätigen...";t$ 
80 ELSE 

8l PRINT "Fehler : ";ERR;" unbekannt" 


82 PRINT "Programmabbruch" 

83 END IF 

84 END IF 

85 END 'ı MSDOS Exit 


86 parameter: 


'! Decodiere die Eingabeoptionen 


87 ptr% = INSTR (options$,"/N") 
88 IF ptr% > 0 THEN nummer% = %on '! Zeilennumerierung 
EIN 


89 ptr% = INSTR (options$,"/Z=") 

90 IF ptr% > O0 THEN CALL getval (maxzeile%) '! Zeilen/Seite 

91 szeile% = maxzeile% + 1 '!ı Zeilennr Seite 
wechseln 


92 ptr% = INSTR (options$,"/L=") 
93 IF ptr% > 0 THEN CALL getval (links%) '! linker Rand 


94 ptr% = INSTR (options$,"/R=") 
95 IF ptr% > 0 THEN CALL getval (rechts?) '! rechter Rand 


96 RETURN 


97 SUB getval (wert?) 


'! Decodiere den Eingabestring in eine Zahl 
98 SHARED options$, ptr% 
99 LOCAL i% 


100 ptr? = ptr% + 3 '! ptr hinter /x= 
101 i® =1 
102 WHILE ((ptr%+i%) =< LEN (options$)) and 

(MID$ (options$,ptr%+i%,1) < 


> " " ) 
103 i% = i% +1 'ı Ziffernzahl + 1 
104 WEND 
105 wert? = VAL (MID$ (options$,ptr%,i?)) 'ı decodiere die Zahl 


106 END SUB 


'! Seitenvorschub mit Kopf (Dateiname, Datum, Seite) 


108 IF szeile% =< maxzeile% THEN RETURN '! kein Seitenwechsel 
I! 
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109 IF seite% > 1 THEN 'ı 1. Seite k. Vorschub 

110 LPRINT CHRS$ (12) 'ı Vorschub 

111 szeile% = 3 '!ı Kopf 3 Zeilen 

112 ELSE 

113 LPRINT "LISTER "; options$; SPACES$S (27); 

114 LPRINT "(c) Born Version 1.0" 

115 szeile% = 4 'ı Kopf 1. Seite = 4 
Zeilen 

116 END IF 

117 LPRINT "Datei ";filenames$;" Datum ";:DATES; 

118 LPRINT " Seite : "; seite% 

119 LPRINT 

120 INCR seite? '! Seite erhöhen 


121 RETURN 


122 


! Ausgabe der eingelesenen Zeile auf dem Printer. 

! rest% gibt an, wieviele Zeichen pro Zeile gedruckt 

! werden dürfen. Ist die eingelesene Zeile länger, wird 
! sie auf mehrere Ausgabezeilen aufgeteilt. 








123 zeile& = zeile& + 1 

124 GOSUB pageskip 

125 spalte% = links% 

126 LPRINT SPACES$S (spalte%); 

127 IF nummer% = %on THEN 

128 LPRINT USING "###### "; zeileg; 
129 spalte% = spalte% + 7 

130 END IF 

131 rest% = rechts% - spalte% 

132 GOSUB skipblank 

133 LPRINT LEFT$ (linie$,rest?) 

134 linie$ = MID$(linie$, rest% + 1) 
135 szeile% = szeile% +1 

136 WHILE LEN(linie$) > rest% 

137 GOSUB pageskip 

138 LPRINT SPACES (spalte%); 

139 LPRINT LEFT$ (linie$, rest?) 

140 linie$ = MID$ (linie$,rest% + 1) 
141 szeile% = szeile% + 1 

142 WEND 

143 IF LEN(linie$) > 0 THEN 

144 GOSUB pageskip 

145 LPRINT SPACE$ (spalte%) ;linie$ 


Zeile im Listing 
Seitenvorschub? 


linker Rand 
auf linken Rand 


Zeilennumerierung? 
Zeilennummer drucken 
Spalte 7 setzen 


Restzeilenlänge 
merke Blanks 
Ausgabe Teilstring 
Reststring 


String > Zeile 
Seitenvorschub? 
linker Rand 
Teilstring ausgeben 
Reststring bestimmen 
Zeile im Listing 


Seitenvorschub? 
Reststring ausgeben 
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146 szeile% = szeile% + 1 
147 END IF 
148 RETURN 


149 skipblank: 
15 


150 i% = 1 
151 WHILE (i% < LEN(linie$)) and (MID$ (linie$,i%,1) =" ") 
152 i% = i%+l 


Datei : lister.bas Datum : 05-12-1992 Seite : & 
Zeile Anweisung 


153 spalte% = spalte% + 1 
154 WEND 
155 RETURN 
' ###### Programm Ende ##H#H####HH## 
156 END 


Listing 2.1: LISTER.BAS 


SPOOL: Ausgabe an den Drucker im Hintergrund 


Das im vorhergehenden Abschnitt besprochene Programm LISTER sorgt 
bereits für ein sauber formatiertes Listing mit Seitennumerierung und 
Randeinstellung. Damit ergänzt es die DOS-Funktionen COPY und PRINT. 
Falls mehrere Dateien auszugeben sind, macht sich aber eine Schwäche 
des Programmes LISTER bemerkbar. Während PRINT die Ausgabe an den 
Drucker im Hintergrund abwickelt, blockiert das Programm LISTER den 
Rechner für die Zeit der Ausgabe. 


Es stellt sich daher die Aufgabe einer Erweiterung des Programmes 
LISTER um eine Funktion zur Druckerausgabe im Hintergrund. 


Der Entwurf 


Die Benutzeroberfläche wird von LISTER übernommen, so daß auf die 
explizite Beschreibung verzichtet wird. Offen ist aber nach wie vor die 
Frage, wie sich die Druckerausgabe im Hintergrund realisieren läßt. 
Naheliegend ist der Gedanke, einen geeigneten Algorithmus zu 
implementieren, der die Ausgabe an den Drucker zwischenpuffert. Dann 
wird der Inhalt des Puffers im Hintergrund über die Schnittstelle 
ausgegeben. Dies setzt einmal eine solide Kenntnis des Betriebssystems 
voraus. Andererseits eignet sich PowerBASIC auch nicht optimal für diese 
Aufgabe. Ein weiteres Problem tritt auf, falls der Puffer im Speicher des 
Rechners liegt. MS-DOS kann nur einen Hauptspeicherbereich von 640 
Kbyte verwalten. Wenn nun für den Spooler ein Pufferbereich von 100 bis 
200 Kbyte reserviert wird, fehlt dieser Bereich den 
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Anwendungsprogrammen. Eine Verkleinerung des Puffers bringt auch 
nichts, da dieser dann schnell überläuft und damit die Ausgabe im 
Hintergrund blockiert ist. Also ist der Zwischenpuffer in Form einer Datei 
zu realisieren. Dies ist nicht weiter tragisch, da ja die Möglichkeit besteht, 
den formatierten Text direkt in die Ausgabedatei zu schreiben. Es bleibt 
damit nur die Weiterverarbeitung dieser Datei im Hintergrund. Dies ist 
wiederum eine Aufgabe, die erhebliches Detailwissen über den internen 
Aufbau von MS-DOS/PC-DOS erfordert. Da zwischen den verschiedenen 
Versionen von MS-DOS Unterschiede bestehen, muß die Implementierung 
dies berücksichtigen. Vor der Implementierung eines solchen Programmes 
sollte aber überlegt werden, ob es nicht eine einfachere Lösung gibt. 


Das MS-DOS Programm PRINT.COM oder PRINT.EXE erfüllt im Grunde 
unsere Anforderungen. Da es mit DOS ausgeliefert wird, sind die 
versionsspezifischen Details bereits berücksichtigt. Optimaler kann es 
eigentlich nicht sein. Damit reduziert sich die Aufgabe auf die Aktivierung 
des Programmes PRINT. Hierzu existieren zwei Alternativen, die 
nachfolgend kurz skizziert werden. 


Einmal bietet die PowerBASIC-Funktion SHELL eine recht einfache 
Schnittstelle zur Aktivierung von PRINT. Der Aufruf: 


SHELL "PRINT" + filenames$ 


aktiviert das Programm PRINT und übergibt die Dateibezeichnung in 
filename$. Auf dem Bildschirm erscheinen anschließend die Ausgaben von 
PRINT (z.B. der Inhalt der Druckerwarteschlange). 


Die Benutzung von PRINT bietet noch einige andere Vorteile. So lassen 
sich zum Beispiel beim ersten Aufruf verschiedene optionale Parameter 
(z.B. Schnittstelle LPTl..n, COMI..n, Zahl der Zeittake etc.) angeben. 
Damit läßt sich PRINT an die individuellen Bedürfnisse anpassen. 
Weiterhin können jederzeit weitere Dateien in der Druckerwarteschlange 
gelöscht oder hinzugefügt werden. Eine Beschreibung dieser Aufrufe 
würde den Rahmen dieses Buches sprengen. Normalerweise ist die 
Bedienerschnittstelle aber in den DOS-Handbüchern beschrieben. 


Für den Systemprogrammierer bietet DOS eine wundokumentierte 
Funktion, um über den Interrupt 2FH mit PRINT zu kommunizieren. 
Genauer gesagt besteht PRINT aus mehreren Teilen. Beim ersten Aufruf 
wird ein Initialisierungsteil durchlaufen, welcher den residenten Code 
installiert. Das residente Modul ist dann für die Ausgabe im Hintergrund 
zuständig. Wird von der DOS-Kommandoebene das Programm PRINT 
aufgerufen, bezieht sich dies auf den transienten Teil, der lediglich die 
Einträge in der internen Druckerwarteschlange manipuliert. Der Interrupt 
2FH bietet nun ebenfalls einige Funktionen, um mit dem residenten Teil 
von PRINT zu kommunizieren. Tabelle 2.3 gibt eine Übersicht über die 
verfügbaren Funktionen. 
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Funktion | Register | 
Check Instal- AX = 0100 (CALL) 
lationsstatus 


AL =Statusbyte (RETURN) 
|AL=FFH PRINT installiert | 








Datei in die AX = 0101 (CALL 
Liste eintragen | DS:DX Zeiger auf die Submittabelle | 
CY=1 Fehler (RETURN) 
| AL Status | 
Datei aus der | AX = 0102 (CALL | 
Liste löschen DS:DX Zeiger auf Dateiname 
CY=1 Fehler (RETURN) 
AL Status 
Liste löschen | AX = 0103 (CALL | 
CY=1 Fehler (RETURN) 
| AL Status | 
Status abfragen AX = 0104 (CALL | 
CY=1 Fehler (RETURN) 
AL Status | 


CY=0 ok 
DS:SI Zeiger auf Ausgabeliste 


Ende Statusab- | AX = 0105 (CALL) | 
frage AL Status (RETURN) 
CY=1 Fehler 


Tabelle 2.3: Funktionen des undokumentierten DOS-Interrupts INT 2F 


Auf eine detailliert Beschreibung der Systemaufrufe wird an dieser Stelle 
verzichtet, da sie den Rahmen dieses Buches sprengt. Der interessierte 
Leser sei hier auf die Literaturangabe /1/ im Anhang dieses Buches 
verwiesen. 


Die Implementierung 


Da das Programm sich sehr stark an das Modul LISTER anlehnt, werden 
nur noch die für SPOOL spezifischen Teile besprochen. Bild 2.6 enthält 
eine Übersicht aller Module und deren Zusammenschaltung. 
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install 


Quell- 
datei parameter — —— | getval 
pageskip 














Bild 2.6: Hierarchiediagramm von SPOOL.BAS 


Hauptmodul 


Im Hauptprogramm wird als erstes das Unterprogramm »install« 
aufgerufen. Dieses prüft, ob der residente Teil von PRITN bereits installiert 
ist. Trifft dies zu, wird das Programm fortgesetzt, andernfalls erfolgt ein 
Abbruch. 


Theoretisch besteht zwar die Möglichkeit, das Programm PRINT über den 
SHELL-Befehl zu installieren. Dies ist aber wegen der nachteiligen Folgen 
nicht erwünscht. Auf den unteren Speicheradressen ist DOS abgelegt, und 
daran schließen sich die Anwenderprogramme an. Hier befindet sich auch 
der Code des Programmes SPOOL. Der Befehl SHELL lädt nun eine Kopie 
des DOS-Kommandointerpreters COMMAND.COM in den Speicher. Bei 
der anschließenden Installation wird der residente Teil von PRINT 
oberhalb dieser Programme in den freien Speicher geladen. Nach 
Beendigung von SPOOL verbleibt der residente Teil von PRINT im 
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Speicher. Damit zerfällt der freie Speicherbereich in zwei Teile, wobei 
Anwendungsprogramme immer nur zusammenhängende Bereiche nutzen 
können. Benötigt ein Programm nun 450 Kbyte Speicher, läßt es sich 
nicht laden, falls kein zusammenhängendes Stück dieser Größe existiert. 
Die Ursache liegt in der Fraktionierung durch den residenten Teil von 
PRINT, die den Speicher in zwei kleinere Teile splittet. Abhilfe schafft in 
dieser Situation nur noch ein Neustart des Systems. Der interessierte 
Leser sei hier ebenfalls auf /1/ verwiesen. In diesem Buch findet sich 
auch eine detaillierte Beschreibung des DOS-Speichermanagements. 


Für unseren Fall bleibt festzuhalten, daß PRINT vor dem Aufruf von 
SPOOL zu installieren ist. Damit ist sichergestellt, daß der residente Teil 
direkt oberhalb von DOS liegt. Damit werden die beschriebenen Probleme 
vermieden. Der formatierte Text wird nicht an den Drucker, sondern in 
eine Datei übertragen. Diese erhält den Namen der Eingabedatei, wobei 
aber als Extension die Bezeichnung TMP angehängt wird. Der Benutzer 
sollte deshalb diese Bezeichnung nicht für andere Dateien verwenden, da 
diese dann bei gleicher Namensgebung überschrieben werden. 


Ausgabe 


Dieses Modul wurde aus dem Programm LISTER übernommen. Die 
Anweisung: 


PRINT #outdatei?%, ... 
ersetzt die LPRINT-Befehle und sorgt für die Testausgabe in die Spooldatei. 


Erwähnt werden soll noch ein kleine Besonderheit. Der Name der 
Ausgabedatei wird aus dem Namen der Quelldatei bestimmt. Dabei wird 
lediglich die Extension entfernt und durch die Endung »TMP« ersetzt. Beid 
er Ermittlung de Zieldatei wird davon ausgegangen, dass keine Laufwerks- 
und Pfadbezeichnungen benutzt wurden. Gegebenenfalls müssen Sie dies 
bei Ihrer Anwendung korrigieren. Weiterhin fragt das Modul den DOS- 
Umgebungsbereich nach einer Variablen TEMP ab. Diese Variable gibt 
unter DOS 5.0 und Windows 3.x die Lage des Verzeichnisses mit den 
temporären Dateien an. Sofern dieses Verzeichnis existiert, wird die 
Ausgabedatei in diesem Verzeichnis angelegt. Fehlt die 
Umgebungsvariable, wird die Ausgabedatei im aktuellen Verzeichnis 
ausgegeben. 


install 


Hier wird der Installationsstatus von PRINT überprüft. Das 
Unterprogramm benutzt den INT 2F für diese Aufgabe. Ist der residente 
Teil von PRINT vorhanden, erhält das Register AL den Wert OFFH. Bei 
anderen Werten bricht das Modul mit der Meldung: 


Bitte PRINT installieren 
ab. Anschließend erscheint die DOS-Systemmeldung auf dem Bildschirm. 
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spool 


Sobald der Text fertig formatiert in der Ausgabedatei vorliegt, ist der Name 
in die Warteschlange von PRINT einzutragen. Die vorliegende 
Implementierung benutzt hierzu das SHELL-Kommando. 


Weitere Einzelheiten sind nachfolgendem Listing zu entnehmen. 


Erweiterungsvorschläge 


Das Programm überschreibt die Ausgabedatei ohne Warnung. Hier könnte 
eine entsprechende Bedienerabfrage eingefügt werden. Eine andere 
Möglichkeit besteht darin, den Dateinamen über den INT 2F in die 
Warteschlange einzutragen. Dadurch entfällt die Meldung von PRINT auf 
dem Bildschirm. Weiterhin könnten die Einstellparameter per 
Umgebungsvariable vordefiniert werden. 


REF /2=55 (ce) Born Version 1.0 
Datei : spool.bas Datum : 05-12-1992 Seite : 1 
Zeile Anweisung 


V KAKKAKKKKHKKKK KHK KHK TH TH HK KH KH HK KH KK HK KH TH KH KK KH HK KH KH KK KH KH TH KH TH KH KK KH KH KH HK AH U KU 





' File : SPOOL.BAS 

' Vers. : 1.0 

' Last Edit : 28.4.92 

' Autor : G. Born 

' File I/O : INPUT, OUTPUT, FILE, PRINTER 

' Progr. Spr.: POWERBASIC 

' Betr. Sys. : DOS 3.0 - 5.0 

' Funktion: Das Programm dient zur Ausgabe von Listings mit 


. Seitennummern, Datum, Dateinamen und einer wähl- 
' baren Zeilennumerierung. Weiterhin wird nach n 

! Zeilen ein Papiervorschub auf dem Drucker ausge- 
! löst. Es lassen sich beliebige Textdateien mit 

! diesem Programm ausgeben. 


' Aufruf: SPOOL Filename /Optionen 

! Optionen: /N Zeilennumerierung ein [Aus] 

! /Lxx linker Rand [Lo] 

! /Rxx rechter Rand [75 ] 

! /2xx Zeilen pro Seite [60 ] 

1 

' Die Werte in [] geben die Standardeinstellung 


! wieder. Wird das Programm ohne Parameter aufge- 
! rufen, sind Dateiname und Optionen explizit ab- 
i zufragen. Das Programm erzeugt eine Datei mit 
\ dem Namen der Eingabedatei und der Extension TMP. 
' Anschließend wird diese Datei mit Hilfe des DOS 
! Spoolers PRINT im Hintergrund ausgegeben. 
I AKAKAKKKKAKKKKHKKKK KH KT KH KH TH KH TH KH KH KH KH KK KH TH KH KK KH KK KK TK KH KH KH KH KK KK K A KH AK A KU &UO 
' Variable definieren 
1 son = 1: %off = O 
2 nummer% = %0f£ '! keine Zeilennummern 
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3 zeile& = 0 '! Zeilennummer Listing 
4 seite% = 1 '! Seitennummer Listing 
5 maxzeile% = 60 '! Zeilen pro Seite 
6 rechts% = 75 '! rechter Rand 
7 links% = 0 'ı linker Rand 
8 spalte% = 0 'ı Einrückung 
9 indatei?% = 1 '! Dateinummer Eingabe 
10 outdatei% = 2 'ı Dateinummer Ausgabe 
11 ON ERROR GOTO fehler '! Fehlerausgang 
HH HEHE HH HH H HH HRHHH HH HH HH HH HH HHHHEHHHEH 
'# Hauptprogramm # 
HH HB HH HH HH HH HH HH BHHH HH HH HH HH HH HHHHEHHHEH: 
12 GOSUB install 'ı PRINT installiert? 
13 kommando$ = COMMANDS 'ı Parameter? 
14 IF LEN (kommando$) = 0 THEN 'ı User Mode? 
15 CLS 'ı clear Screen 
16 PRINT "SPOOL (ec) Born 
Version 1.0" 
17 PRINT 
18 PRINT "Optionen [ /L=00 linker Rand /R=75 rechter 
Rand 1 
" 
19 PRINT " [ /Z=60 Zeilen pro Seite /N 


Zeilennumerierung ] 
" 





20 PRINT 

21 INPUT "File : ", £ilename$ 

22 INPUT "Optionen : ",options$ 

23 PRINT 

24 ELSE 

25 ptr% = INSTR (kommando$,"/?") '! Option /? 

26 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 

27 PRINT "SPOOL (ce) Born Version 1.0" 

28 PRINT 

29 PRINT "Aufruf: SPOOL <Filename> <Optionen>" 

30 PRINT 

31 PRINT "Optionen :" 

32 PRINT 

33 PRINT " /L=00 setzt den linken Rand" 

34 PRINT " /R=75 setzt den rechten Rand" 

35 PRINT " /Z=60 setzt die Zeilenzahl pro Seite" 

36 PRINT " /N schaltet die Zeilennumerierung ein" 

37 PRINT 

38 PRINT "Das Programm gibt ein Listing der Datei aus, wobei 
sich" 

39 PRINT "die Ränder und die Zahl der Zeilen einstellen läßt. 











Die" 
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40 PRINT "Ausgabe erfolgt in eine Datei, die per PRINT 
ausgedruckt" 

41 PRINT "wird." 

42 PRINT 

43 SYSTEM 

44 END IF 

45 III] 'ı Kommandomodus 

46 ptr% = INSTR (kommando$,"/") '! Optionen? 

47 IF ptr% = 0 THEN 

48 filename$ = kommando$ '! nur Filename 

49 ELSE 

50 filename$ = LEFT$ (kommando$,ptr% -1) '! Filename separieren 

51 options$ = MIDS$S (kommando$,ptr%) '! Optionen separieren 

52 END IF 

53 END IF 

54 GOSUB parameter 'ı Optionen decodieren 

55 IF (rechts% < links%) or (maxzeile% < 10) THEN '!! sinnlose 

56 PRINT 'ı Einstellung 

57 PRINT "Bitte Randeinstellung neu setzen" 'ı Fehlerexit 

58 END 'ı Exit 

59 END IF 

60 IF filename$ = "" THEN '! Leereingabe? 

61 PRINT 

62 PRINT "Der Dateiname fehlt" 

63 END 'ı Exit 

64 END IF 

65 ptr% = INSTR(filename$,".") '! hat Datei eine 
Extension? 

66 IF ptr% > O0 THEN 

67 outfile$ = LEFT$(filename$,ptr?%) + "TMP" '! Filename ohne 
Extension 

68 ELSE 

69 outfile$ = filename$ + ".TMP" '! Extension anhängen 

70 END IF 

'ı falls TEMP-Verzeichnis existiert, lege Ausgabedatei dort 

an. 

71 outfile$ = ENVIRON$ ("TEMP") + "\"+ outfile$ 

' prüfe ob Datei vorhanden, nein -> exit 

72 OPEN filename$ FOR INPUT AS #indatei% '! Öffne Eingabedatei 

73 OPEN outfile$ FOR OUTPUT AS #outdatei% '! Öffne Ausgabedatei 

74 PRINT 

75 PRINT "Die Datei: ";filename$;" wird bearbeitet" 

76 GOSUB pageskip '! Seitenkopf ausgeben 

77 WHILE NOT (EOF (indatei?)) '! Datei sequentiell 
lesen 

78 LINE INPUT #indatei%, linie$ 'ı lese Zeile 
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79 GOSUB ausgabe '! drucke Zeile 

80 WEND 

81 CLOSE #indatei% '! Datei schließen 

82 CLOSE #outdatei% 'ı Datei schließen 

83 PRINT 

84 PRINT "Die Datei: ";filename$;" wird auf dem Drucker 
ausgegeben " 

85 GOSUB spool 'ı aktiviere Print 

86 END 


HH HH 
'# Hilfsroutinen # 
HH HH HH 


87 fehler: 


88 IF ERR = 53 THEN 

89 PRINT "Die Datei ";filename$;" existiert nicht" 
90 ELSE 

91 PRINT "Fehler : ";ERR;" unbekannt" 

92 PRINT "Programmabbruch" 

93 END IF 

94 END 'ı MSDOS Exit 
95 RETURN 


96 parameter: 


'! Decodiere die Eingabeoptionen 


97 ptr% = INSTR (options$,"/N") 
98 IF ptr% > 0 THEN nummer% = %on '! Zeilennumerierung 


99 ptr% = INSTR (options$,"/Z=") 
100 IF ptr% > 0 THEN CALL getval (maxzeile%) '! Zeilen/Seite 
101 szeile% = maxzeile% + 1 '! Zeilennr Seite 
wechseln 


102 ptr% = INSTR (options$,"/L=") 
103 IF ptr% > 0 THEN CALL getval (links%) '! linker Rand 


104 ptr% = INSTR (options$,"/R=") 
105 IF ptr% > 0 THEN CALL getval (rechts?) '! rechter Rand 


106 RETURN 


107 SUB getval (wert?) 


'! Decodiere den Eingabestring in eine Zahl 


108 SHARED options$, ptr% 
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109 LOCAL i% 
110 ptr% = ptr% + 3 '! ptr hinter /x= 
111 i®$=1 
112 WHILE ((ptr%+i%) =< LEN (options$)) and 
(MID$ (options$,ptr%+i%,1) < 
> " " ) 
113 i% = i% +1 'ı Ziffernzahl + 1 
114 WEND 
115 wert? = VAL (MID$ (options$,ptr%,i?)) 'ı decodiere die Zahl 
116 END SUB 
117 pageskip: 
Nass anssrdaisn ass ansehen Br Benni ane 
'! Seitenvorschub mit Kopf (Dateiname, Datum, Seite) 
a a a a ee a a ee a a a 
118 IF szeile% < maxzeile% THEN RETURN '! kein Seitenwechsel 
I! 
119 IF seite% > 1 THEN 'ı 1. Seite k. Vorschub 
120 PRINT #outdatei%, CHRS$ (12) 'ı Vorschub 
121 szeile% = 3 'ı 3 Kopfzeilen 
122 ELSE 
123 PRINT #outdatei%, "S PO OL"; options$; SPACES$S (27); 
124 PRINT #outdatei%, "(c) Born Version 1.0" 
125 szeile% = 4 'ı 4 Kopfzeilen 
126 END IF 
127 PRINT #outdatei%, "Datei ";filename$;" Datum 
";DATES$S; 
128 PRINT #outdatei%, " Seite "; seite? 
129 PRINT #outdatei?, 
130 INCR seite% 
131 RETURN 
132 ausgabe 
N a a a ie a A a a a a se a N a a a a a a a a a 
'!ı Ausgabe der eingelesenen Zeile auf dem Printer. 
'! rest% gibt an, wieviele Zeichen pro Zeile gedruckt 
'ı werden dürfen. Ist die eingelesene Zeile länger, wird 
'! sie auf mehrere Ausgabezeilen aufgeteilt. 
Va a a a a a ne ee a a a a 
133 INCR zeile& 'ı Zeile im Listing + 1 
134 GOSUB pageskip '! Seitenvorschub? 
135 spalte% = links% 'ı linker Rand 
136 PRINT #outdatei?%, SPACE$S (spalte?%); 'ı auf linken Rand 
137 IF nummer% = %on THEN '! Zeilennumerierung? 
138 PRINT #outdatei?%, USING "#HHHH# "; zeile&; '! Zeilennummer 
drucken 
139 spalte% = spalte% + 7 'ı Spalte 7 setzen 
140 END IF 
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141 rest% = rechts% - spalte% '! Restzeilenlänge 

142 GOSUB skipblank '! merke Blanks 

143 PRINT #outdatei?%, LEFT$(linie$,rest?%) '! Ausgabe Teilstring 

144 linie$ = MID$(linie$, rest% + 1) '!l Reststring 

145 INCR szeile% 

146 WHILE LEN(linie$) > rest% 'ıl String > Zeile 

147 GOSUB pageskip '! Seitenvorschub? 

148 PRINT #outdatei%, SPACES (spalte%); 'ı linker Rand 

149 PRINT #outdatei%, LEFT$(linie$,rest%) '! Teilstring 
ausgeben 

150 linie$ = MID$ (linie$,rest% + 1) '! Reststring bestimmen 

151 INCR szeile% 'ı Zeile im Listing + 1 

152 WEND 


153 IF LEN(linie$) > 0 THEN 


154 GOSUB pageskip '! Seitenvorschub? 

155 PRINT #outdatei%, SPACES$S (spalte%) ;linie$ '! Reststring 
ausgeben 

156 INCR szeile% 'ı Zeile im Listing + 1 

157 END IF 

158 RETURN 


159 skipblank: 
ı 


160 i% = 1 

161 WHILE (i% < LEN(linie$)) and (MID$ (linie$,i%,1) =" ") 
162 INCR i% 

163 INCR spalte% 

164 WEND 

165 RETURN 


166 install: 


167 REG 1, &HO0100 'ı AX = 0100 -> check 
rl Status 

168 CALL INTERRUPT &H2F 'ı Multiplexer INT 

169 IF (REG (1) and &HOOFF) <> &HFF THEN '! PRINT installiert? 


170 PRINT "Bitte installieren Sie zuerst das MS-DOS Programm: " 
171 PRINT "PRINT" 

172 PRINT 

173 END 'ı Exit 

174 END IF 


175 RETURN 
176 spool: 


'! aktiviere PRINT um die Datei xxx.TMP zu drucken 
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177 SHELL "PRINT " + outfile$ '! Spool Datei 
178 RETURN 

' ###### Programm Ende ##H#####HH#H# 
179 END 


Listing 2.2: SPOOL.BAS 


PSLIST: Listings für PostScript-Drucker 


Die in den vorhergehenden Abschnitten besprochenen Programme LISTER 
und SPOOL sind eine gute Hilfe bei der Ausgabe von Listings auf normalen 
Druckern (Matrix-, Tintenstrahl- und Laserdrucker). Mittlerweile sind aber 
auch Drucker auf Basis der PostScript-Technologie verfügbar und auf 
Grund der Preise für einen breiteren Anwenderkreis von Interesse. Es ist 
daher davon auszugehen, daß solche Geräte bei vielen Anwendern im 
wahrsten Sinne des Wortes herumstehen. Denn der Pferdefuß beim 
Einsatz von DOS besteht darin, daß dieses Betriebssystem PostScript 
nicht unterstützt. Unter DR-DOS 6.0 gibt es zwar ein entsprechendes 
Hilfsprogramm und auch Windows sowie verschiedene Anwendungen 
bieten entsprechende Treiber. Aber in PowerBASIC-Programmen kann der 
Anwender PostScript-Geräte nicht nutzen. 


Aus diesem Ansatz heraus entstand die Idee, ein Programm zur Ausgabe 
von Listings auf PostScript-Geräten zu erstellen. In den vergangenen 
Jahren habe ich mich im Rahmen einer Zeitschriftenserie und in Form 
eines Buchprojektes ausgiebig mit der Sprache PostScript beschäftigt. 
Deshalb reizte mich das Thema, d.h. ich wollte herausfinden, wie 
aufwendig die Erstellung eines entsprechenden Treibers eigentlich ist. Als 
zweites finde ich es schon eine »affenscharfe« Sache, unter DOS ein Listing 
in verschiedenen Schriftgrößen von einem PostScript-Dreuker zu erhalten 
(wer kann schon damit aufwarten). 


Sofern Sie über kein PostScript-Gerät verfügen, können Sie diesen 
Abschnitt übergehen. Es sei aber darauf hingewiesen, daß es mittlerweile 
für wenige hundert Mark Emulationsprogramme (z.B. GoScript, Freedom 
of Press, UltraScript) gibt, die PostScript-Programme unter DOS 
verarbeiten und die Ausgabe für Nadel-, Tintenstrahl- und Laserdrucker 
aufbereiten. Damit können Sie für wenig Geld in diese interessante 
Technik einsteigen. Ich benutze seit fast zwei Jahren einen solchen 
Emulator, auf dem auch das folgende Programm getestet wurde. 


Auf die Frage, was denn eigentlich PostScript ist, kann ich nur mit einer 
Kurzeinführung aufwarten. Bei PostScript handelt es sich um eine 
Druckerbeschreibungssprache, die Anfang der achtziger Jahre durch die 
Firma Adobe definiert wurde. Eine auszugebende Seite wird durch 
einzelne Befehle für Text und Grafik beschrieben. Im Endgerät (Drucker, 
Fotobelichter etc.) setzt dann ein Interpreter diese Befehle in die 
Ausgabeseite um. Damit ist nicht mehr der Rechner sondern das Gerät für 
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die Aufbereitung der Ausgaben verantwortlich. Der Hauptvorteil besteht 
deshalb darin, daß Druckausgaben hersteller- und geräteunabhängig 
formuliert werden können. 


Die Sprache selbst besitzt eine Reihe von Befehlen zur Ausgabe von Texten 
und Grafiken. Weiterhin lassen sich Berechnungen und 
Ablaufsteuerungen realisieren. Das nachfolgende Listing zeigt ein 
minimales PostScript-Programm, welches einen Text und einen 
waagerechten Strich auf einer Druckseite ausgibt. Alle Texte hinter dem 
Prozentzeichen (%) sind als Kommentare zu verstehen: 





%--> einfaches PostScript-Programm 

/Times-Roman findfont % Font festlegen 

20 scalefont setfont % Font mit 20 Punkt Größe 
newpath % Ausgabeseite Öffnen 
10 500 moveto % Anfangskoordinaten 
(Dies ist ein Text) show % Text ausgeben 

10 300 moveto % nächster Punkt 

0.2 setlinewidth % Linienbreite 

0 setgray % Farbe schwarz 

200 300 lineto % Pfad (Linie) ziehen 
stroke % Linie sichtbar machen 
showpage % Seite ausgeben 

% --> Ende 


Listing 2.3: Einfaches PostScript-Programm 


Die Sprache ist stackorientiert und benutzt das Prinzip der umgekehrten 
polnischen Notation, d.h. zuerst werden die Operanden und dann der 
Operator auf den Stack gelegt und abgearbeitet. Dies ist sehr gut bei einer 
Addition zu erkennen. Statt der Anweisung: 


3 +4 
wird die Form: 


34 add 

gewählt. Analoges findet sich auch in obigem Listing (z.B. x y moveto). Mit 
den ersten zwei Anweisungen wird eine Schrift (Font) vereinbart. Im 
Beispiel ist dies Times-Roman mit einer Größe von 20 Punkt. Newpath 
öffnet eine Ausgabeseite, auf die sich alle folgenden Ausgaben beziehen. 
Die Ausgaben werden dann in der Seite virtuell ausgegeben, wobei sich 
durchaus mehrere Objekte (Texte, Striche etc.) überlagern dürfen. Die 
Farbe des zuletzt gezeichneten Objektes bestimmt dann, ob die 
darunterliegenden Objekte verdeckt oder sichtbar sind. Die Anweisungen x 
y  moveto verschieben den Ausgabecursor zum angegebenen 
Koordinatenpunkt, wobei der Ursprung in der linken unteren Ecke liegt. 
Alle Angaben werden in PostScript übrigens in Punkt (typographischer 
Punkt = ca. 1,44 mm) ausgegeben. Mit (Text)show wird der eigentliche 
Text, beginnend vom aktuellen Punkt, auf die Ausgabeseite projiziert. Der 
Befehl x y lineto zieht einen Pfad vom aktuellen Punkt zum angegebenen 
Ziel. Ein Pfad können Sie sich als Linie vorstellen, die mit unsichtbarer 
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Farbe gezeichnet wurde. Erst der Befehl stroke füllt diese Linie mit der 
gesetzten Farbe (0 setgray) und der Strichstärke (0.2 setlinewidth) aus. 
Alle Anweisungen beziehen sich auf eine virtuelle Ausgabeseite. Die Seite 
wird erst mit der Anweisung showpage auf dem Drucker ausgegeben. 


Sofern Sie sich näher für die Sprache PostScript interessieren, möchte ich 
Sie auf die Titel /3 und /4 im Literaturverzeichnis hinweisen. 


Der Entwurf 


Die Benutzeroberfläche soll sich an den Möglichkeiten von SPOOL 
anlehnen. Wird das Programm mit der Eingabe: 


PSLIST 
aufgerufen, erscheint die Kopfmeldung: 


PSLIST (ce) Born Version 1.0 

Optionen [ /L=10 linker Rand /R=500 rechter Rand ] 
[ /0=700 oberer Rand /U=100 unterer Rand ] 
[ /F=10 Fontgröße/Punkt /N Numerierung Ein ] 

File 

Optionen : 


Bild 2.7: Kopfmeldung des Programmes PSLIST 


Im Gegensatz zu den Programmen LISTER und SPOOL sind die Optionen 
etwas verändert. Die Zahl der Zeilen pro Seite wird hier nicht mehr 
angegeben. Dies ist auch nicht nötig, da die Abmessungen des 
Druckbereiches einer Seite in Punkt spezifiziert werden. Zusammen mit 
der Fontgröße ergibt sich dann automatisch die Zahl der Zeilen pro Seite. 
Die oben angegebenen Werte geben die Standardeinstellung wieder. Mit 
der Option /N läßt sich jedoch wie gewohnt die Zeilennumerierung im 
Listing einschalten. 


Als Dateiname darf jede gültige MS-DOS-Dateibezeichnung einschließlich 
Laufwerks- und Pfadbezeichnung verwendet werden. Die Abfrage der 
»Optionen« soll nach der Eingabe des Dateinamens erfolgen. Die 
Kopfmeldung zeigt mögliche Eingaben für diese Optionen. Die Optionen 
dürfen zwar in beliebiger Reihenfolge eingegeben werden, das Format ist 
jedoch gemäß obigen Angaben definiert (/ gefolgt von Großbuchstaben). 
Nachfolgend finden Sie einige gültige Formatangaben. 

/N 

/L=10 /O=655 /R-550 /U=50 /N 

/L=5 

/N /R=600 


Fehlerhafte Eingaben (z.B. linker Rand größer als rechter Rand etc.) sind 


durch das Programm abzufangen. In diesem Fall erscheint die 
Fehlermeldung: 
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Bitte Randeinstellung neu setzen 
Wird kein Dateiname eingegeben, bricht das Programm mit der folgenden 
Meldung ab: 

Der Dateiname fehlt 
Existiert die angegebene Datei nicht, endet das Programm ebenfalls mit 
der Meldung: 


Die Datei <Name> existiert nicht 


Wird eine Datei gefunden, beginnt die Ausgabe mit dem Hinweis: 

Die Datei <Name> wird bearbeitet 
Name steht dabei für den eingegebenen Dateinamen. Nach Beendigung der 
Ausgabe in die PostScript-Datei erscheint die Meldung: 
Die <Datei> wurde im aktuellen Verzeichnis erzeugt 
Sie können dann die Datei per COPY oder PRINT auf dem PostScript-Gerät 
ausgeben. 


Die eigentliche Ausgabe des Listings entspricht der gewohnten Form, wie 
sie auch durch das Programm LISTER erzeugt wird. Lediglich die 
Schriftgröße läßt sich durch die Option /O in Schritten zu einem Punkt 
variieren. Sinnvolle Angaben dürften dabei zwischen 8 Punkt und 16 
Punkt liegen. Bei zu großen Schrifttypen passen die Ausgabezeilen nicht 
mehr auf eine Seite. Aus Gründen der Vereinfachung begrenzt das 
Programm die Zeichen pro Zeile auf 75. 


Alternativ lassen sich Dateiname und Optionen mit in der Kommandozeile 
angeben: 


PSLIST <Filename> <Optionen> 
Dies ist insbesondere in Batchdateien interessant. Weiterhin kann eine 
Online-Hilfe mit folgendem Kommando aufgerufen werden: 


PSLIST /? 


Auf dem Bildschirm erscheint folgende Meldung: 


PSLIST (ce) Born Version 1.0 
Aufruf: PSLIST <Filename> <Optionen> 
Optionen : 


/L=10 setzt den linken Rand in Punkt 
/R=500 setzt den rechten Rand 

/0=700 setzt den oberen Rand 

/U=100 setzt den unteren Rand 

/F=10 setzt die Fontgröße in Punkt 
/N Numerierung ein 
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Das Programm gibt ein Listing als PostScript-Datei 

mit der Extension xxxx.PS aus, wobei xxxx dem File- 
namen entspricht. Die Ergebnisdatei kann dann auf einem 
PostScript-Gerät ausgegeben werden. 


Bild 2.8: Online-Hilfe von PSLIST 


Die Implementierung 


Bezüglich der Implementierung bietet es sich an, möglichst viele Teile von 
LISTER oder SPOOL zu übernehmen. Gerade die Decodierung der 
Eingaben sowie die Formatierung der Ausgaben und Speicherung in eine 
Textdatei ist in SPOOL bereits gelöst. Lediglich die Teile zur Ansteuerung 
von PRINT können entfernt werden. Die Beschreibung der einzelnen 
Module beschränkt sich deshalb auch nur auf die Änderungen zu SPOOL. 


Offen ist allerdings noch die Frage, wie die Ausgaben der PostScript- 
Befehle erfolgen sollen. Hier bieten sich zwei Möglichkeiten an: 


. Das Programm generiert alle PostScript-Anweisungen 
einschließlich der Positionsangaben innerhalb der Seite. Dies setzt 
die Berechnungen des Layouts der Seite in PSLIST voraus. 


e Das Programm generiert lediglich die Anweisungen zur Ausgabe 
einzelner Zeilen in PostScript. Die Positionierung des 
Zeilenanfanges erfolgt dann innerhalb des PostScript-Interpreters. 
Dies setzt aber voraus, daß in PostScript ein entsprechendes 
Programm vorliegt. 


Beide Varianten haben ihre Vor- und Nachteile. Ich habe mich für die 
zweite Variante entschieden. Hierfür gab es eigentlich zwei Gründe: 


e Einmal müssen bestimmte Definitionen (z.B. Umlaute) sowieso in 
einem PostScript-Programm vorgenommen werden. 


e Zweitens stehen mir aus dem erwähnten Buchprojekt verschiedene 
PostScript-Programme zur Textausgabe zur Verfügung. 


Auf Grund dieser Entscheidung konnte ich das Programm in rund vier 
Stunden implementieren. Zur Vorgehensweise nachfolgend einige 
Erläuterungen. 


PostScript umfaßt eine eigene Sprache, mit der sich Berechnungen und 
Programmabläufe formulieren lassen. Damit stehen auch Prozeduren und 
Schleifen zur Verfügung. Somit läßt sich ein PostScript-Programm in zwei 
Teile gliedern: 


«e Teil 1 mit den Definitionen und Ausgabeprozeduren. 
«e Teil 2 mit den eigentlichen Textanweisungen. 


Da Teil 1 sich kaum ändert, kann er als Vorspann vor den eigentlichen 
Text geschrieben werden. Dann muß lediglich der auszugebende Text in 
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der PostScript-Notation angefügt werden. Diese Aufgabe kann ein kleines 
Programm leicht erfüllten. Im Grunde sind lediglich alle Zeilen in 
Anweisungen wie (..) show zu packen. (Ganz so einfach ist es zwar nicht, 
aber der Ansatz ist praktikabel.) 


Bleibt noch die Frage, wie Teil 1 des PostScript-Programmes aufzubauen 
ist. Hier lassen sich folgende Punkte identifizieren: 


e Die Abmessungen der müssen definiert werden. 


e Der Font muß selektiert und die gewünschte Größe eingestellt 
werden. 


« Da in den Standardfonts von PostScript keine Umlaute definiert 
sind, müssen diese in der Fontdefinition aktiviert werden. 


«e Es sind einige Routinen zur formatierten Ausgabe der übergebenen 
Texte zu integrieren. 


Die Abmessungen der Druckseite werden durch den Benutzer beim Aufruf 
des Programmes definiert (bei fehlenden Angaben werden Standardwerte 
verwendet). Diese Definitionen müssen also durch das Programm PSLIST 
generiert werden. Das gleiche gilt für die Fontgröße. 


Alle anderen Angaben können jedoch bereits in eine statische Textdatei 
gespeichert werden. Diese Textdatei muß dann lediglich vor die 
Textausgaben gestellt werden. Nachfolgendes Listing zeigt den Aufbau des 
Vorspanns der PostScript-Datei. Dieser Vorspann ist in der Datei 
HEADER.PS gespeichert. 


%---> File: HEADER.PS (c) G. Born 
%---> Definitionen für Textausgabe mit Umlauten 
%--> definiere Konstanten 

/LW { CH CH 3 div add } def % Zeilenabstand 


/Blank ( ) def % Leerzeichen 
/Buff 12 dict def % lokales Dictionary 


/endtest % Test ob Seitenende erreicht ist 


{ 


dup % Y duplizieren 

BM lt % unterer Rand? 
showpage % ja-> neue Seite 
pop TM % neue Y-Koordinate 
} if % auf 1. Zeile 

} def 

/newpage % Seitenvorschub 
showpage % Seite wechseln 
LM TM moveto % Startpunkt neue Seite 

} def 

/cerl£ % Zeilenvorschub 
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{ 


LM % linker Rand 
currentpoint LW sub % y-dy 
exch pop % X entfernen 
endtest % neue Seite? 
moveto % Zeilenanfang 
} def 
/printword % Ausgabe eines Wortes 
{ 
dup % String duplizieren 
stringwidth pop % Länge Text 
currentpoint % aktuelle Ausgabe 
pop add LM add % Ausgabelänge berech. 
RM gt 
{ crl£ } if % Zeilenvorschub 
show % Text ausgeben 
( ) show % Leerzeichen 
} def 
/printline % Ausgabe eines Satzes 


OD 


{ 
{ 


Blank search 
{ printword pop } 
{ printword exit } 


Beginn der Prozedur 
Beginn der Schleife 
separiere Wort 
Ausgabe Wort 
Ausgabe Resttext 


MP oc 


D 


ifelse 
} loop % loop alle Wörter 
crl£ % Zeilenvorschub 
} def 
/Redefine % Umcodierung Font 
{ Buff begin % lokales Dictionary 


/NCodeName exch def % Hilfsvariable 
/NFontName exch def 
/AFontName exch def 


/AFontDict % suche alten Font 
AFontName findfont def 


/NeuFont AFontDict % neue Dictionary schaffen 


maxlength dict def 


ON 


AFontDict kopiere alten Font 
{ exch dup /FID ne % bis auf FID-Feld 
{ dup /Encoding eq 
{ exch dup length array copy 
NeuFont 3 1 roll put 


{ exch NeuFont 3 1 roll put 
} ifelse 


} { pop pop } ifelse 
} forall 


NeuFont 
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/FontName NFontName put % setze neuen Namen 
NCodeName aload pop Werte laden 
NCodeName length 2 idiv und eintragen 
{ NeuFont /Encoding get 

3 1 roll put 


ON 


a 


} repeat 
NFontName NeuFont % definiere neuen Font 
definefont pop 
end 
} def % Ende der Prozedur /Redefine 


%--> Hauptprogramm 


D 


/Umlaute 

[ 8#201 /udieresis 
8#204 /adieresis 
8#216 /Adieresis 
8#224 /odieresis 
8#231 /Odieresis 
8#232 /Udieresis 
8#341 /germandbls 

] def 


Feld mit Umlautdefinitionen 


Ey MP oP 
Rn G: O: O: D: D: 5 


D 


oc 


OD 


° 


%--> Umcodierung des Fonts 
%--> Hier ist der Name des Basis-Fonts einzutragen: 


Q 


%--> z.B. /Times-Roman oder /AvantGarde oder /Courier 


/Courier 
<%--> Umdefinition des Urfonts in Font mit Umlauten 
/Neu-Font-Deutsch % neuer Font 


Umlaute Redefine 


/Neu-Font-Deutsch findfont % Font selektieren 


CH scalefont setfont % und initialisieren 
LM TM moveto % Anfangspunkt 
%----> Hier schließt sich der auszugebende Text an 


Listing 2.4: HEADER.PS 


Der Aufbau des Programmes setzt voraus, daß vor den ersten Zeilen 
bereits die Definitionen für die Abmessungen des Druckbereiches und der 
Fontgröße stehen. Diese Anweisungen müssen direkt im Programm 
erzeugt werden: 


/RM 500 def 
/LM 10 def 


Sie sollten sich einmal eine von PSLIST generierte Ausgabedatei ansehen, 
um den genauen Aufbau des Headers zu analysieren. 
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Die Prozedur printline (in HEADER.PS) übernimmt einen Textstring und 
sorgt für die Ausgabe des Inhalts auf dem Drucker. Dabei gilt folgende 
Syntax: 


(Text) printline 

Die Formatierung, der Zeilenvorschub etc. erfolgt dann direkt im 
PostScript-Programm. Die Prozedur /crlf führt zum Beispiel einen 
Zeilenvorschub durch. 


Ein Großteil des Programmes widmet sich der Neudefinition des 
Ausgabefonts. PostScript stellt in den Fontdateien standardmäßig keine 
Umlaute zur Verfügung, obwohl die Zeichen bereits im Font definiert sind. 
Die Codes dieser Sonderzeichen müssen daher explizit definiert werden. 
Hierzu sind die Prozedur /redefine und die folgenden Definitionen 
zuständig: 


/Umlaute 

[ 8#201 /udieresis 
8#204 /adieresis 
8#216 /Adieresis 
8#224 /odieresis 
8#231 /Odieresis 
8#232 /Udieresis 
8#341 /germandbls 

] def 


2 


Feld mit Umlautdefinitionen 


Ey  oP 
RD G: 0:0: >: m: € 


D 


oo oe 


D 


Auf eine genaue Beschreibung der Wirkungsweise muß ich an dieser Stelle 
verzichten, da diese den Umfang des Buches sprengen würde. Der 
interessiert Leser sei auf /4/ verwiesen, wo das Programm in erweiterter 
Form vorliegt und die Wirkungsweise schrittweise erläutert wird. Die Datei 
HEADER.PS findet sich auf der Begleitdiskette. Sie muß sich beim Aufruf 
von PSLIST im Verzeichnis von PSLIST oder im aktuellen Verzeichnis 
befinden. 


Nach dieser Vorarbeit kann PSLIST sich bei der Ausgabe darauf 
beschränken, die Eingabezeilen zu lesen, gegebenenfalls auf 75 Zeichen 
pro Zeile zu begrenzen und dann die Zeichen in der PostScript-Syntax an 
die Prozedur printline zu übergeben. Hierzu ist der Text in runde 
Klammern zu stellen und der Name der Prozedur anzuhängen (z.B. (dies 
ist ein Text) printline). Probleme treten lediglich auf, falls im Text 
selbst diese Klammern auftreten. PostScript sieht in diesem Fall eine 
Markierung mit dem Zeichen »\« vor. Dies ist beid er Ausgabe zu 
berücksichtigen. 


Als Font für die Ausgabe von Listings würde ich Courier vorschlagen. 
Dieser Schriftsatz besitzt keine proportionalen Zeichenbreite, d.h. es ergibt 
sich eine Ausgabe wie auf einem Matrixdrucker. Die Zeichen stehen 
spaltenweise untereinander. Die Fontgröße und die Abmessungen der 
Druckseite (oben (TM) - unten (BM)) ergeben dann die Zahl der Zeilen pro 
Seite. Dieser Wert dient PSLIST zur Formatierung der Ausgabe, d.h. dann 
wird ein Seitenkopf generiert. Der eigentliche Umbruch der Seite erfolgt 
dagegen in der PostScript-Prozedur /endtest. 
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Hauptmodul 


Im Hauptprogramm werden die Eingabeparameter eingelesen und 
decodiert. Dann öffnet das Programm die Eingabe- und Ausgabedatei. Der 
Aufruf des Unterprogrammes vorspann sorgt dafür, daß Teil 1 der 
Ausgabedatei generiert wird. In einer Schleife wird dann die Eingabedatei 
zeilenweise gelesen und über das Unterprogramm ausgabe in PostScript- 
Notation ausgegeben. 


vorspann 


Das Programm generiert zuerst die Konstanten für die Abmessungen des 
Druckbereiches in der Ausgabedatei. Dann wird noch die Fontgröße 
definiert. Anschließend kopiert vorspann den Inhalt der Datei HEADER.PS 
in die Ausgabedatei. Daran schließt sich später das auszugebende Listing 
an. 


Ausgabe 


Dieses Modul wurde aus dem Programm SPOOL übernommen. Erwähnt 
werden soll hier eine kleine Besonderheit. Der Name der Ausgabedatei 
wird aus dem Namen der Quelldatei bestimmt. Dabei wird lediglich die 
Extension entfernt und durch die Endung »PS ersetzt. Bei der Ermittlung 
des Names für die Zieldatei wird davon ausgegangen, dass keine 
Laufwerks- und Pfadangaben benutzten werden. Das Programm formatiert 
die Eingabezeile wie in den Modulen LISTER und SPOOL und fügt 
weiterhin die Steueranweisungen für PostScript hinzu. Der Aufbau der 
Steueranweisungen wurde oben bereits beschrieben und kann in der 
Ergebnisdatei leicht nachvollzogen werden. 


Weitere Einzelheiten sind nachfolgendem Listing zu entnehmen. 


Erweiterungsvorschläge 


Das Programm überschreibt die Ausgabedatei ohne Warnung. Hier könnte 
eine entsprechende Bedienerabfrage eingefügt werden. Weiterhin könnte 
der Fontname selektierbar sein. Dazu muß lediglich eine Option 
eingelesen und die entsprechende Definition an den Anfang der 
PostScript-Datei geschrieben werden. Ein weiterer Punkt ist die 
Berechnung der Zeichen pro Zeile in Abhängigkeit von der Fontgröße und 
dem Druckbereich. Zur Zeit werden maximal 75 Zeichen pro Zeile 
ausgegeben, was bei entsprechenden Fontgrößen zu Problemen führt. Hier 
ist sicherlich Abhilfe denkbar. 


xREF /2=55 (ce) Born Version 1.0 
Datei : pslist.bas Datum : 05-13-1992 Seite : 1 
Zeile Anweisung 


I KAAKKAKKKKHKHKKKK KK KHK TH KH HK TH KH HK KH KK KH KH TH KH KK KK TH KH KK KK TH KH TH KH KK KH KK KH HK AH U KU 
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' File 

' Vers. 

' Last Edit 

' Autor 

' File I/O 

' Progr. Spr.: 
'! Betr. Sys. 

' Funktion: 


' Aufruf: 


I KAKKAKKKKK 


' Variable d 
1 son = 1: %of£f 
2 nummer? = 30 
3 zeile& = O0 
4 seite% = 1 


5 rechts% = 50 


6 links% = 10 
7 oben? = 700 
8 unten?% = 100 
9 £font?% = 10 


10 rmargin% = 7 
11 indatei% = 1 
12 indatei2% = 
13 outdatei% = 


14 errorname$ = 
15 ON ERROR GOT: 


"HHHHHHHHHHH 


PowerBasic-Progr 


PSLIST.BAS 

1.0 

30. 4.92 

G. Born 

INPUT, OUTPUT, FILE, PRINTER 

POWERBASIC 

: DOS 2.1 - 5.0 

Das Programm dient zur Ausgabe von Listings 
auf PostScript-Geräten. Der Text wird in eine 
Datei mit der Extension .PS konvertiert. Es 
lassen sich beliebige Textdateien mit diesem 
Programm aufbereiten. Die Steueranweisungen 
für den Interpreter (Seitenumbruch, Randein- 
stellung etc.) werden über PSLIST direkt und 
über die Datei HEADER.PS generiert. 


PSLIST Filename <Optionen> 

Optionen: /N Zeilennumerierung ein [AUS] 
/L=xx linker Rand in Punkten [ 100] 
/R=xx rechter Rand [ 500] 
/O0=xx oberer Rand [ 700] 
/U=xx unterer Rand [ 100] 
/F=xx Fontgröße in Punkt [ 10] 


Die Werte in [] geben die Standardeinstellung 
wieder. Wird das Programm ohne Parameter aufge- 
rufen, sind Dateiname und Optionen explizit ab- 
zufragen. Mit dem Aufruf: 


PSLIST /? 


wird ein Hilfsbildschirm ausgegeben. 
KKKKKKKKKKKKKKKKKKKKK KK KK KK KK KK KK KK KK KK KK KK KK KK KÜUO 


efinieren 
f.=. 0 
££ 'ı keine Zeilennummern 


'! Zeilennummer Listing 
'! Seitennummer Listing 





0 '! rechter Rand in 


linker Rand 
oberer Rand 
unterer Rand 
Fontgröße 


5 '1 75 Zeichen pro Zeile 
'ı Dateinummer Eingabe 

3 'ı Dateinummer Header 

2 'ı Dateinummer Ausgabe 


nu 


oO fehler '! Fehlerausgang 


HH HIER 
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'# Hauptprogramm # 
HHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HH HH HEHE 


16 kommando$ = COMMANDS '! Parameter? 
17 IF LEN (kommando$) = 0 THEN 'ı User Mode? 
18 CLS 'ı clear Screen 
19 PRINT "PSLIST (c) Born 
Version 1.0" 
20 PRINT 
21 PRINT "Optionen [ /L=10 linker Rand /R=500 rechter 
Rand 
1." 
22 PRINT " [ /0=700 oberer Rand /U=100 unterer 
Rand 
j* 
23 PRINT " [ /F=10 Fontgröße/Punkt /N 


Numerierung Ein 


24 
25 
26 
27 
28 


29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 





50 
51 
52 
53 
54 
55 
56 
57 


T* 























PRINT 

INPUT "File : ", £ilename$ 

INPUT "Optionen : ",options$ 

PRINT 

ELSE 

ptr% = INSTR (kommando$,"/?") '! Option /? 

IF ptr% <> 0 THEN 'ı Hilfsbildschirm 
PRINT "PS LIST (ce) Born Version 1.0" 
PRINT 
PRINT "Aufruf: PSLIST <Filename> <Optionen>" 

PRINT 
PRINT "Optionen :" 
PRINT 
PRINT " /L=10 setzt den linken Rand in Punkt" 
PRINT " /R=500 setzt den rechten Rand" 
PRINT " /O0=700 setzt den oberen Rand" 
PRINT " /U=100 setzt den unteren Rand" 
PRINT " /F=10 setzt die Fontgröße in Punkt" 
PRINT " /N Numerierung ein" 
PRINT 
PRINT "Das Programm gibt ein Listing als PostScript-Datei" 
PRINT "mit der Extension xxxx.PS aus, wobei xxxx dem File-" 
PRINT "namen entspricht. Die Ergebnisdatei kann dann auf 
PRINT "PostScript-Gerät ausgegeben werden." 
PRINT 
SYSTEM 
END IF 
'ı Kommando-Modus 

ptr% = INSTR (kommando$,"/") '! Optionen? 

IF ptr® = 0 THEN 
filename$ = kommando$ '! nur Filename 

ELSE 
filename$ = LEFT$ (kommando$,ptr% -1) '! Filename separieren 
options$ = MIDS$S (kommando$,ptr%) '! Optionen separieren 
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58 END IF 
59 END IF 


60 GOSUB parameter 


51 


'ı Optionen decodieren 


61 IF (rechts% < links%) or (oben% < unten‘) THEN '! sinnlose 
62 PRINT 'ı Einstellung 
63 PRINT "Bitte Randeinstellung neu setzen" 'ı Fehlerexit 
64 END 'ı Exit 

65 END IF 

66 IF filename$ = "" THEN '! Leereingabe? 

67 PRINT 

68 PRINT "Der Dateiname fehlt" 

69 END 'ı Exit 

70 END IF 


71 ptr% = INSTR(filename$,".") 
Extension? 

72 IF ptr% > O0 THEN 

73 outfile$ = LEFT$(filename$,ptr?%) + 
Extension 

74 ELSE 

75 outfile$ = filename$ + ".Ps" 

76 END IF 


'ı hat Datei eine 


"ps" '! Filename ohne 


'ı Extension anhängen 


' prüfe ob Datei vorhanden, nein -> exit 


77 errorname$ = filename$ 

78 OPEN filename$ FOR INPUT AS #indatei% '! Öffne Eingabedatei 
79 OPEN outfile$ FOR OUTPUT AS #outdatei% '! Öffne Ausgabedatei 
80 PRINT 

81 PRINT "Die Datei: ";filename$;" wird bearbeitet" 


82 GOSUB vorspann 


83 WHILE NOT (EOF (indatei?%)) 
lesen 
84 LINE INPUT #indatei%, linie$ 


'ı Vorspann generieren 
'ı Datei sequentiell 


'ı lese Zeile 


'! scan line auf (..) und wandle in \ um 


85 liniel$ = "" 

86 FOR i% = 1 to LEN(linie$) 
87 zchn$ = MIDS$ (linie$,i%,1l) 
88 IF (zchn$ = "(") or (zchn$ = ")") 
89 liniel$ = liniel$ + "\" 
90 END IF 

91 liniel$ = liniel$ + zchn$ 
92 NEXT i% 

93 linie$ = liniel$ 

94 GOSUB ausgabe 

95 WEND 


96 PRINT #outdatei?%, "showpage" 
97 PRINT #outdatei%, "% END of File" 


THEN 


'ı schreibe Zeile 


'ı Abschluß PS-Datei 
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98 
99 
100 
101 
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CLOSE #indatei% 'ı Datei schließen 
CLOSE #outdatei% 'ı Datei schließen 
PRINT 

PRINT "Die Datei: ";filename$;" wurde im aktuellen 


Verzeichnis erzeugt" 


102 


103 


104 
105 
106 
107 
108 
109 
110 
111 


112 


113 


114 
115 


116 
117 


118 
119 


120 
121 


122 
123 


124 
125 
126 


127 
128 


END 


HH HH HH HH HH HH HH HHHHFHHHEH 
'# Hilfsroutinen # 
HH HH HHHHHH HH HH HH HHHHHHHEHHHEH 


fehler: 


IF ERR = 53 THEN 


PRINT "Die Datei ";errorname$;" existiert nicht" 
ELSE 

PRINT "Fehler : ";ERR;" unbekannt" 

PRINT "Programmabbruch" 

END IF 

END 'ı MSDOS Exit 
RETURN 
parameter: 


'! Decodiere die Eingabeoptionen 


options$ = UCASE$ (options$) 


ptr? = INSTR (options$,"/N") 
IF ptr% > 0 THEN Nummer%=%on '! Zeilennumerierung 


ptr?% = INSTR (options$,"/L=") 
IF ptr% > 0 THEN CALL getval (links%) '! linker Rand 


ptr% = INSTR (options$,"/R=") 
IF ptr% > 0 THEN CALL getval (rechts%) '! rechter Rand 


ptr?% = INSTR (options$,"/O=") 
IF ptr% > 0 THEN CALL getval (oben?) 'ı oberer Rand 


ptr?% = INSTR (options$,"/U=") 
IF ptr% > 0 THEN CALL getval (unten?) 'ı unterer Rand 





ptr% = INSTR (options$,"/F=") 
IF ptr% > 0 THEN CALL getval (font%) 'ı Fontgröße 
IF £font% > 20 THEN font% = 20 '! max. 20 Punkt 





'ı berechne Zeilenzahl aus Seiten- und Fontgröße 
maxzeile% = (oben% - unten?) / (£ont% + font? / 3) 
szeile% = maxzeile%+1 
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129 RETURN 


130 SUB getval (wert?) 


'! Decodiere den Eingabestring in eine Zahl 
131 SHARED options$, ptr% 
132 LOCAL i% 


133 ptr% = ptr% + 3 'ı ptr hinter /x= 
134 i% = 1 
135 WHILE ((ptr%+i%) =< LEN (options$)) and 

(MID$S (options$,ptr%+i%,1) <> " ") 


136 i% = i% +1 'ı Ziffernzahl + 1 
137 WEND 
138 wert? = VAL (MID$ (options$,ptr%,i?)) 'ı decodiere die Zahl 


139 END SUB 





140 pageskip: 
MD a u a a et süss va a St ae Fa Gepr aeF Fe SR al, Spa rc „Gl ut ma aa aa aa Fe Kat ri ee Re Ko re eh Keil pas Dart da Ka a Gt ET a Me a 
'! Seitenvorschub mit Kopf (Dateiname, Datum, Seite) 
ee a re a a a a a TE a De a a a a N En a a a Ba EZ a a ee 
141 IF szeile% < maxzeile% THEN RETURN 'ı kein Seitenwechsel 
1 
142 IF seite% > 1 THEN 'ı 1. Seite k. Vorschub 
143 PRINT #outdatei?%, "newpage" '! Vorschub 
144 szeile% = 3 'ı 3 Kopfzeilen 
145 ELSE 
146 PRINT #outdatei%, "(PSLIST ", options$; SPACE$ (27); 
147 PRINT #outdatei%, "\(c\) Born Version 1.0) printline" 
148 szeile% = 4 'ı A Kopfzeilen 
149 END IF 
150 PRINT #outdatei%, "(Datei : ";filename$;" Datum 
";DATES; 
151 PRINT #outdatei%, " Seite : "; seite%; ") printline" 


152 PRINT #outdatei?%, 
153 INCR seite? 


154 RETURN 


155 ausgabe: 
'! Ausgabe der eingelesenen Zeile in der Datei 
'! rest% gibt an, wieviele Zeichen pro Zeile gedruckt 
'ı werden dürfen. Ist die eingelesene Zeile länger, wird 
'ı sie auf mehrere Ausgabezeilen aufgeteilt. 





156 INCR zeile& '! Zeile im Listing + 1 

157 GOSUB pageskip '! Seitenvorschub? 

158 spalte% = O 'ı linker Rand (immer 
0) 

159 PRINT #outdatei%, "("; 'ı Startklammer 
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160 IF nummer% = %on THEN '! Zeilennumerierung? 
161 PRINT #outdatei%, USING "####H4# "; zeile&; '! Zeilennummer 

drucken 
162 spalte% = spalte% + 7 'ı Spalte 7 setzen 
163 END IF 
164 rest% = rmargin% - spalte% '! Restzeilenlänge 
165 GOSUB skipblank '! merke Blanks 
166 PRINT #outdatei?%, LEFT$(linie$,rest?%); '! Ausgabe Teilstring 
167 PRINT #outdatei?%, ") printline" 

168 linie$ = MID$(linie$, rest% + 1) '!l Reststring 

169 INCR szeile% 

170 WHILE LEN(linie$) > rest% 'ıl String > Zeile 

171 GOSUB pageskip '! Seitenvorschub? 

172 PRINT #outdatei%, "("; SPACE$ (spalte%); '! linker Rand 

173 PRINT #outdatei%, LEFT$ (linie$,rest?%); 'ı Teilstring 
ausgeben 

174 PRINT #outdatei%, ") printline" 

175 linie$ = MID$ (linie$,rest% + 1) '! Reststring bestimmen 

176 INCR szeile% 'ı Zeile im Listing + 1 

177  WEND 

178 IF LEN(linie$) > O0 THEN 

179 GOSUB pageskip '! Seitenvorschub? 

180 PRINT #outdatei%, "("; SPACES$ (spalte%) ;linie$; '! 

Reststring ausgeben 
181 PRINT #outdatei%, ") printline" 

182 INCR szeile% 'ı Zeile im Listing + 1 
183 END IF 
184 RETURN 
185 skipblank: 
MT a Nr a a a Sen el Re rn nn are era a ee ha eh a a en Et a ne m erh ae Te Kar ae a N chen A a a ed 
'ı zähle führende Blanks 
We ar a ka neh enclt nae Nana a mat ie Kah e Lake0 5 rl as Fr ehe „Late man) Ba Van Sa st a BT TEE Van a Aa Ha fe Kr aa war a dh Ba Vs Ge Gt” Ba Sr Are 
186 i% = 1 
187 WHILE (1% < LEN(linie$)) and (MID$ (linie$,i%,1) ="") 
188 INCR i% 
189 INCR spalte% 
190 WEND 
191 RETURN 
192 vorspann: 
Ma a Tan nr Se a a Aa a a een uch an ie as a Sch Bass aae)t Ka a ha et Fa Tu Ks ac Fan ei A pt fc, Ko aa pas Sa ec Ka er ed Ta Hnfe a 
'!l generiere Vorspann mit PostScript-Anweisungen 
Ma a EN a Be a Be Be a ae a en ee a a a re 
193 errorname$ = "HEADER.PS" 
194 OPEN "HEADER.PS" FOR INPUT AS #indatei2% 'ı Header öffnen 
195 PRINT "Generiere Fileheader" 
196 PRINT #outdatei%, "%%!PS-Adobe-2.0 EPSF-1.2" 


197 PRINT #outdatei%, "%%3Title: ",filename$ 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


PowerBasic-Programmierhandbuch 55 











198 PRINT #outdatei%, "%%Creator: PSLIST 1.0 (c) Born G." 

199 PRINT #outdatei%, "%%EndComments" 

200 PRINT #outdatei%, "" 

201 PRINT #outdatei%, "%%BeginSetup" 

202 PRINT #outdatei%, "/LM ";links%;" def % linker Rand" 

203 PRINT #outdatei%, "/RM ";rechts%;" def % rechter Rand" 

204 PRINT #outdatei%, "/TM ";oben?%;" def % oberer Rand" 

205 PRINT #outdatei%, "/BM ";unten?;" def % unterer Rand" 

206 PRINT #outdatei%, "/CH ";font%;" def % Fontgröße" 

207 PRINT #outdatei%, "" 

208 WHILE NOT (EOF (indatei2%)) '! Datei sequentiell 
lesen 

209 LINE INPUT #indatei2%, linie$ 'ı lese Zeile 

210 PRINT #outdatei?%, linie$ 'ı schreibe 

211 WEND 


212 PRINT #outdatei%, "%%EndSetup" 
213 PRINT #outdatei%, "" 


214 CLOSE #indatei2% 
215 RETURN 


216 END 


Listing 2.5: PSLIST.BAS 


XREF: Ein Generator zur Erzeugung von 
Querverweislisten 


Die bisher besprochenen Programme zur formatierten Ausgabe von 
PowerBASIC-Programmlistings unterstützen die Software-Entwicklung nur 
zum Teil. Zwar lassen sich damit übersichtlich strukturierte 
Dokumentationen des Programmes erreichen. Aber dies reicht für die 
tägliche Entwicklerpraxis nicht aus. Wer sich mit den Themen 
»Softwareentwicklung und PowerBASIC« beschäftig, dem sind wohl 
folgende Probleme bekannt: 


« Es wurde die Endung % ! # & an einer Variablen vergessen, so daß 
PowerBASIC einen neuen Typ zuweist. 


«e Das Programm funktioniert nicht oder liefert falsche Ergebnisse, 
weil ein Variablenname irrtümlich mehrfach belegt oder falsch 
geschrieben wurde. 


« Eine Variable soll in ihrer Bedeutung verändert werden. Das 
Programmlisting muß nun nach dieser Variable durchsucht 
werden, um sicherzustellen, daß keine Nebeneffekte auftreten. 


e Ein Label soll umbenannt werden. Wo taucht dieser Name überall 
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im Programm auf? 


e Das Programm enthält Variablen, die durch Änderungen 
überflüssig wurden. Wie können solche »Leichen« gefunden 
werden? 


« Es soll herausgefunden werden, wo überall ein Unterprogramm 
aufgerufen wird. 


Diese und ähnliche Fragen treten häufig bei der Programmentwicklung 
auf, wobei das Listing dann manuell durchsucht wird. Dies ist nicht nur 
zeitaufwendig, sondern auch sehr fehleranfällig. 


Professionelle Compiler und Assembler unterstützen den Entwickler bei 
dieser Aufgabe. Sie erzeugen ein Listing mit Zeilennummern und 
generieren anschließend eine Querverweisliste (Cross-Referenz-Liste). 
Diese enthält alle Variablen in alphabetischer Reihenfolge sowie die 
Zeilennummern, in denen die jeweilige Variablen auftritt. 


Leider bietet PowerBASIC (wie viele andere populäre Produkte) diesen 
Service nicht. Nachfolgend wird deshalb ein einfacher 
Querverweisgenerator für PowerBASIC-Programme beschrieben. 


Die Spezifikation 


Vor der Entwicklung beginnen wir wieder mit der Festlegung der 
Anforderungen. Der Generator soll ein beliebiges PowerBASIC- 
Quellprogramm einlesen und mit einer Querverweisliste versehen wieder 
ausgeben. 





List: 
Quell- er 


— > | Gener. | — > 








Datei Datei 


Referenztabelle 
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Bild 2.9: Funktionsprinzip eines Cross Referenz Generators 


Doch alles der Reihe nach. Zuerst ist die Bedieneroberfläche zu 
spezifizieren. Das Programm läßt sich durch die Eingabe des Namens: 


XREF 


von der MS-DOS-Kommandoebene starten. Nun bestehen (ähnlich wie 
beim Programm LISTER) wieder zwei Möglichkeiten zum Einlesen des 
Dateinamens und eventueller Optionen. 


Fehlt in der Kommandozele der Name des einzulesenden 
Quellprogrammes, verzweigt XREF in den interaktiven Eingabemodus. Der 
Bildschirm wird gelöscht und es erscheint folgende Meldung: 


CROSS REFERENZ (GENERATOR (ce) Born Version 
1.0 
Optionen [/L=00 linker Rand /R=75 rechter Rand ] 


[/Z=60 Zeilen pro Seite ] 


File 
Optionen: 


Bild 2.10: XREF-Eröffnungsmeldung im Dialogmodus 


Mit File wird der Name der zu bearbeitenden Datei abgefragt. Hier ist jeder 
gültige MS-DOS-Dateiname einschließlich Laufwerks- und Pfadangaben 
erlaubt. 


Die Abfrage der Optionen erscheint erst nach der Eingabe des 
Dateinamens. In der Kopfmeldung sind die möglichen Optionen 
aufgeführt. Ähnlich wie bei LISTER läßt sich die Randeinstellung mit /L 
und /R beeinflussen. Die Zahl der Zeilen pro Seite wird durch den 
Schalter /Z angegeben. Eine Leereingabe bei der Optionsabfrage 
veranlaßt, daß XREF die Standardeinstellung übernimmt. 


Linker Rand bei Spalte ® O ® 
Rechter Rand bei Spalte » 75 ® 
«Zeilen pro Seite® .60 


Tabelle 2.4: Standardeinstellung in XREF 


Diese Voreinstellung wird in der Kopfmeldung bereits angegeben. 


Bei fehlender Eingabedatei erscheint die Meldung: 

Der Dateiname fehlt 

Dann bricht das Programm ab. Ein anderer Fall tritt auf, wenn sich linke 
und rechte Randeinstellung überschneiden, oder wenn weniger als zehn 


Zeilen pro Seite zu drucken sind. Dann bricht XREF mit der folgenden 
Meldung ab: 


Bitte Randeinstellung neu setzen 
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Sind alle Eingaben korrekt, eröffnet XREF die Ein- und Ausgabedateien. 
Als Name für die Ausgabedatei wird der Name der Eingabedatei, allerdings 
mit der Endung .REF, übernommen. Eine bestehende Datei mit diesem 
Namen wird ohne Warnung überschrieben. Dies scheint vertretbar, da ja 
eine Referenzliste beliebig oft generierbar ist. Nur andere Programme 
dürfen diese Extension nicht verwenden, da sonst das Ergebnis 
überschrieben wird. Die Datei bleibt auch nach der Bearbeitung erhalten, 
und läßt sich mit den MS-DOS-Kommandos COPY, TYPE und PRINT 
ausgeben. 


Für die Einbindung in Batchdateien besteht die Möglichkeit, sowohl den 
Dateinamen als auch die Optionen direkt beim Aufruf mit anzugeben. 
Sobald ein Dateiname in der Kommandozeile auftritt, geht das Programm 
in den Kommandomodus über. Dann erscheint keine Kopfmeldung mehr 
und der Dateiname sowie eventuelle Optionen werden aus der 
Kommandozeile gelesen. Nachfolgend finden sich einige gültige Aufrufe zur 
Aktivierung des Kommandomodus. 


XREF A:LISTER.BAS 
XREF SPOOL.BAS /L=5 /Z=50 
XREF XREF.BAS /L=5 /R=70 /Z=55 


Der Dateiname muß als erstes hinter dem Kommando XREF auftauchen. 
Die Optionen lassen sich wahlweise angeben, wobei die Reihenfolge 
beliebig ist. Lediglich zur Trennung der einzelnen Parameter muß jeweils 
ein Leerzeichen verwendet werden. 


Der Benutzer wird anschließend über den Programmmablauf mit den 
Meldungen: 


Die Datei: <name> wird bearbeitet 
Referenzliste erzeugen 
Ende Cross Referenz Generator 


informiert. Anschließend findet sich auf dem Speichermedium (Platte, 
Floppy) die Datei mit der Endung .REF. Diese enthält den formatierten 
Quelltext mit einer laufenden Zeilennumerierung und der erzeugten 
Referenzliste. Kommentar- und Leerzeilen erhalten keine Zeilennummer. 
Die Datei wird mit der Information über die Zahl der gelesenen 
Quellcodezeilen und der ermittelten Variablenzahl abgeschlossen. Bild 
2.11 zeigt einen Ausschnitt aus einer solchen Datei. 


REF /2=55 (ce) Born Version 1.0 
Datei : xref.bas Datum : 04-25-1992 Seite : 1 
Zeile Anweisung 


TKKAKKKAKKKKHKKHTK KK KK KH TH KH KH KH KH KH KH KK KH KH KH KK KK KH KH TH KH KK KK TH KH KK KH KH KH HK A KO 


'ı File : XREF.BAS 
'l Vers. Een BERG 
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%true 





1 = &HFFFF: %false = O0 
2 tmpx% = 0 'ı Hilfsvariable 
3 zeile% = O '! Zeilennummer Listing 
4 seite% = 1 '! Seitennummer Listing 
5 maxzeile% = 60 '!ı Zeilen pro Seite 
Ixkrıkr* Programm Ende AAKKkKK 
XREF-Tabelle (ce) Born Version 
1.0 
Datei : xref.bas Datum : 09-25-1988 Seite : 16 
<false 


1 10 186 202 215 230 417 


<maxentry 
14 15 16 93 229 


<nil 
261 287 314 347 


zeile% 
3 135 141 142 168 177 248 263 273 275 379 


XREF Modul Information 


Lines read : 479 
Symbols found : 74 


End XREF 


Bild 2.11: Auszug aus einer Querverweisliste 


Der Beginn der Referenztabelle wird auf der ersten Seite mit einem 
Kopftext signalisiert. Die ersten Einträge sind für die Konstanten (%..) 
reserviert. Daran schließen sich die Variablen an. Die Informationen über 
die Zahl der gelesenen Anweisungen (ohne Kommentare) und die 
Variablenzahl sind sicherlich in vielen Fällen interessant. Für mich 
persönlich war es schon erstaunlich, als nach dem ersten Durchlauf von 
XREF.BAS zwar ca. 500 Zeilen angegeben wurden, das Programm aber 
weniger als 80 Variable enthielt. Die Implementierung sieht insgesamt 
1.000 Einträge in der Variablenliste vor, so daß sich auch längere 
Programme ohne Probleme bearbeiten lassen. 


Nach der Spezifikation der Bedieneroberfläche und der Anforderungen 
wenden wir uns der technischen Realisierung zu. Es stellt sich die Frage, 
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wie läßt sich ein solcher Generator realisieren? Wie können Variablen- 
und Konstantennamen erkannt werden? 


Der Entwurf 


Damit sind wir bereit beim Entwurf des Programmes angelangt. Der 
Generator soll alle Variablen-, Konstanten- und Unterprogrammnamen 
erkennen und in der Liste eintragen. 


Um einen solchen Namen zu erkennen, ist jeweils eine komplette Zeile 
einzulesen und zeichenweise zu analysieren. Der Aufbau einer Konstanten 
oder einer Variablen läßt sich mit einem Syntaxdiagramm (Bild 2.12) 
darstellen. 
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A.Z,a..z 
4 A..Za..z Su &tH He 
0..9 
De 
Konstante 
% 
A.Z,a.z u — 
| $ | A.Z,a..z | > 
0..9 1 
“4 
| &H {1 0.9,A.F 7 
» 
= &B —— 0,1 











Bild 2.12: Syntaxdiagramm von Basic-Variablen und -Konstanten 


Obwohl das Syntaxdiagramm auch numerische Konstanten (&HFFF) oder 
Steueranweisungen für den Compiler ($STACK) zuläßt, sollen diese beiden 
Typen nicht weiter verarbeitet werden. In der Liste erscheinen nur 
Konstanten der Form %true, da nur sie eine symbolische Darstellung 
besitzen. Das Ende einer Konstanten oder Variablen kann durch 
verschiedene Zeichen signalisiert werden (Leerzeichen, +, -, /, ( etc.). Da 
recht viele Zeichen auftreten können, beschränkt sich die Analyse auf die 
Erkennung aller gültigen Zeichen einer Variablen (A..Z, a..z, %,&,$,!,#). 
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Dabei können die Zeichen für die Typdefinition (##, %% etc.) ebenfalls 
vorkommen. Tritt nun ein anderes Zeichen auf, ist das Ende des jeweiligen 
Basic-Bezeichners gefunden. Das erste gültige Zeichen signalisiert also 
den Anfang eines Namens, während das Ende durch das erste auftretende 
ungültige Zeichen markiert wird. Mit dieser Methode lassen sich recht 
einfach die einzelnen PBezeichner (Variablen, Konstanten, Labels, 
Schlüsselwörter etc.) einer Anweisungszeile ermitteln. Das Modul, welches 
diese Aufgabe übernimmt, wird nachfolgend als Scanner bezeichnet. Für 
die separierten Bezeichner wird der Begriff »token«verwendet. Aus einer 
eingelesenen Anweisungszeile sind also alle Tokes zu separieren. 


Aber wie im täglichen Leben treten noch einige Fußangeln auf. Einmal 
lassen sich mit obigem Syntaxdiagramm auch PowerBASIC- 
Schlüsselwörter (IF, END IF, FOR etc.) erzeugen. Es muß nun aber 
sichergestellt werden, daß diese Schlüsselwörter nicht in der Referenzliste 
auftauchen. Kein Mensch interessiert sich wohl dafür, wie oft und in 
welcher Zeile ein IF auftritt. Deshalb wird eine eigene Tabelle mit den 
Basic-Schlüsselwörtern benötigt. Dann läßt sich jedes token überprüfen, 
und nur wenn es nicht in dieser Tabelle vorkommt, ist eine Einordnung in 
die Referenztabelle erlaubt. 


Der zweite Haken liegt in der Schreibweise der Namen begründet. Die 
deutsche Sprache kennt Groß- und Kleinschreibung, während 
PowerBASIC dies zwar erlaubt, aber keine Unterscheidung zwischen Groß- 
und Kleinbuchstaben vornimmt. Die Namen: 


TestText% = testtext?% 


sind also für PowerBASIC gleich. Ein Vergleich der Zeichenketten auf 
Gleichheit wird jedoch das Ergebnis false erhalten. Dies liegt daran, daß 
ein Stringvergleich über die ASCII-Codes erfolgt. Die Codes für Groß- und 
Kleinbuchstaben sind aber leider unterschiedlich. Jedes gefundene token 
ist also vor der Suche in Großbuchstaben zu konvertieren und mit dem 
Tabelleneintrag (auch in Großbuchstaben) zu vergleichen. Die 
Abspeicherung in der Referenztabelle hat aber wieder in der 
Originalschreibweise zu erfolgen, da der Benutzer dies bei der Ausgabe 
erwartet. Im Abschnitt über die Implementierung wird ein entsprechendes 
Modul vorgestellt, welches die Aufgabe löst. 


Ein weiteres Problem betrifft die Kommentarzeilen. Innerhalb eines 
Kommentars können natürlich auch gültige Variablennamen auftreten. 
Diese dürfen natürlich nicht in die Referenzliste aufgenommen werden, da 
sie hier ohne Bedeutung sind. Kommentare können sowohl zu Beginn 
einer Zeile (' oder REM), oder mitten in der Zeile stehen. In beiden Fällen 
ist die Restzeile zu ignorieren. 


Als letzte Schikane sollen nun noch die Textstrings in Basic-Anweisungen 
erwähnt werden. Falls in einer Anweisung der Text: 


zeile$ = "Dies ist keine text$ Variable" 
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auftritt, darf nur zeile$ als Variable erkannt werden. Der String zwischen 
den Anführungszeichen "..." ist zu ignorieren. Auch dies ist bei der 
Implementierung zu berücksichtigen. 


Nun soll aber das Thema »Separierung der Variablen« beendet werden. Es 
stellt sich die Frage nach dem Aufbau der Referenztabelle. Die 
Schlüsselwörter werden in einer einfachen Tabelle abgelegt. 


ABS 
ABSOLUTE 
AND 








XOR 





Tabelle 2.5: Basic-Schlüsselwörter 


Weiterhin kann diese Tabelle noch einen Code enthalten, der signalisiert, 
ob eine Basic-Funktion (ABS, UCASE$) vorliegt. Die implementierte 
Tabelle enthält solche Codes, obwohl sie in der aktuellen Version von 
XREF nicht weiter ausgewertet werden. Denkbar ist es aber, über eine 
zuschaltbare Option diese Funktionsnamen in die Referenztabelle 
aufzunehmen. 


Bleibt noch die Aufgabe, eine geeignete Speicherform für die eigentliche 
Referenztabelle zu finden. Diese besitzt im Prinzip folgende Struktur. 





Name | Zeilennummer 
aus% 10:15,20 0% 
ein? 30 35 





Tabelle 2.6: Struktur der Referenztabelle 


Naheliegend ist deshalb der Gedanke, folgende Struktur im Speicher zu 
definieren: 


DIM name$ (300) 'ı Name der Variablen 
DIM lines% (300,30) '! Zeilennummern 


In diese Felder lassen sich die Daten dann abspeichern. Über kurz oder 
lang tauchen aber Probleme auf. Was passiert z.B., wenn im Programm 
mehr als die oben definierten 300 Variablennamen vorkommen. Eine 
Vergrößerung der Tabellengröße verschiebt das Problem lediglich, löst es 
aber nicht, da irgend ein Programm sicher diese Grenze erreicht. 


Zusätzlich ist die nächste Schwierigkeit schon absehbar. Nehmen wir an, 
im Analyseteil wurde eine Variable erkannt und soll nun in die Tabelle 
eingetragen werden. Stehen die Namen in unsortierter Reihenfolge im Feld 
name$, sind alle belegten Positionen auf Übereinstimmung zu testen. Ein 
neuer Name wird dann am Tabellenende angefügt. Bei langen Listen 
bedeutet dies einen hohen Suchaufwand. Abhilfe bringt eine sortierte 
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Tabelle. Hier lassen sich optimalere Suchverfahren (binäres Suchen etc.) 
anwenden. Was passiert aber, falls der Name neu ist? Dann sind alle 
Einträge ab der aktuellen Position um eine Stelle zu verschieben, was 
ebenfalls Aufwand bedeutet. Verfahren die diese Nachteile umgehen 
(Hash-Tabellen etc.) lassen sich in Basic nur schwer realisieren und sollen 
aus diesem Grunde hier nicht diskutiert werden. 


Getreu nach dem Spruch: »Aller guten Dinge sind drei« sei noch auf eine 
weitere Unzulänglichkeit hingewiesen. Pro Variablenname existiert in der 
Tabelle das Feld Lines%li,30), d.h. es lassen sich 30 Zeilennummern 
eintragen. Es gibt aber mit Sicherheit Programme, in denen eine Variable 
in mehr als diesen 30 Zeilen vorkommt. Das Feld zu vergrößern bringt 
auch Probleme. Es wird viel Speicherplatz ver(sch)wendet. Denn bei allen 
Variablen, die nur in wenigen Zeilen auftauchen, schleppen wir 
unbenutzte Speicherzellen mit, während bei häufig auftretenden Variablen 
der Platz nicht reicht. 


Dies zeigt wieder einmal, daß der Teufel oft im Detail steckt. Der Gedanke, 
die Tabellen einfach auf Platte oder Diskette zu verlagern, bringt zwar 
Abhilfe beim Speicherplatzproblem, löst aber nicht die restlichen 
Schwierigkeiten. Außerdem verschlechtert sich die Zugriffszeit erheblich. 
(Mit diesen Schwierigkeiten hatte ich auch nicht gerechnet, als vor vielen 
Jahren die Idee zu XREF entstand.) 


Es bleibt also nichts anderes übrig, als aus den verschiedenen Ansätzen 
eine geeignete Kompromißlösung auszusuchen. Das Problem 
»Speicherplatz versus Laufzeit« ist weiterhin aktuell. Wie die Lösung 
aussieht, wird nachfolgend diskutiert. 


Der Ansatz in XREF 


Um zu halbwegs passablen Verarbeitungsgeschwindigkeiten zu gelangen, 
scheidet eine Auslagerung auf externe Speichermedien (Floppy, Platte) 
aus. Dies fällt leicht, da PowerBASIC keine indexsequentielle 
Dateiverwaltung besitzt. Eine Programmierung einer solchen 
Dateiverwaltung ist zwar möglich, aber in PowerBASIC zu aufwendig. 


Damit deutet sich schon an, daß die Daten im Hauptspeicher zu halten 
sind. Es stellt sich sofort die Frage nach dem Netto-Speicherplatzbedarf 
dieser Lösung. PowerBASIC erlaubt eine Länge von 255 Zeichen pro 
Variablenname. Bei einer Tabellengröße von 1000 Einträgen ergibt sich als 
Ergebnis: 


1000 Einträge * 255 Bytes = 255 Kbyte 


Dies ist natürlich nicht tragbar, da ja weitere Informationen zu speichern 
sind. Gottlob ist der Mensch aber schreibfaul, was insbesondere auf 
Programmierer zutreffen soll. Man kann also davon ausgehen, daß im 
Mittel pro Variablennamen nicht mehr als etwa zehn Zeichen verwendet 
werden. Damit sieht die Rechnung bereits anders aus: 


1000 Einträge * 10 Bytes = 10 Kbyte 
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Die ist ein akzeptabler Wert. Glücklicherweise besitzt PowerBASIC noch 
eine effiziente Stringverwaltung, die nur dann Speicher reserviert, wenn 
auch wirklich Zeichen vorliegen. Auf die Interna möchte ich an dieser 
Stelle nicht eingehen. In der Praxis wird also relativ wenig Speicher für 
diese Tabelle belegt. Damit ist klar, daß ein Feld mit 1.000 Elementen vom 
Typ String zur Aufnahme der Variablennamen definiert wird. 


Bleibt noch die Speicherung der Zeilennummern. Die Idee mit einem 
zweidimensionalen Integerfeld: 


DIM zeilennr% (1000,30) 
belegt einen Speicherplatz von: 


2 Byte * 30 * 1000 Elemente = 60 Kbyte 


Dies ist recht viel, insbesondere wenn man bedenkt, daß einerseits ein 
Großteil dieser Einträge unbelegt bleibt, weil eine Variable nur in wenigen 
Zeilen auftritt. Anderseits reicht der Platz für oft benutzten Variable nicht, 
da diese mit Sicherheit in mehr als 30 Zeilen auftreten. Bevor mit der 
Tabellengröße jongliert wird bedienen wir uns doch der Basic- 
Stringverwaltung. Die Zeilennummern lassen sich direkt als String 
ablegen, der nur dann Speicher benötigt, wenn auch wirklich Zeichen 
eingetragen werden. 


Damit ergibt sich für die interne Tabelle folgende Struktur: 


DIM tablename$ (1000) 'ı Name der Variablen 
DIM tableline$ (1000) '! Zeilennummern 


was eine recht gute Ausnutzung des Hauptspeichers erlaubt. 


Nun kann endlich über die Verwaltung dieser Tabelle nachgedacht 
werden. Wie lassen sich die Variablen eintragen und wie wird geprüft, ob 
ein Name bereits vorhanden ist? 


Die einfachste Lösung besteht darin, die Variablen fortlaufend in die 
Tabelle einzusetzen. Neue Variablen werden einfach an das freie Ende der 
Tabelle angehängt. Leider birgt dieser Ansatz einige Nachteile: 


e Als Randbedingung soll die Referenztabelle natürlich alphabetisch 
sortiert ausgegeben werden. Die Liste ist also vor der Ausgabe noch 
zu sortieren. 


e Bei jeder Variable ist die komplette Tabelle zu prüfen, bis feststeht 
ob der Name bereits eingetragen ist. 


Dies verursacht natürlich einen erheblichen Aufwand. Insbesondere die 
Suchzeit wächst linear mit der Zahl der Einträge in der Tabelle. Falls diese 
Einträge sortiert vorliegen, kann ein binäres Suchverfahren die Zahl der 
Vergleiche erheblich reduzieren. Bei dieser Methode wird die Liste durch 
zwei Zeiger (oben und unten) begrenzt. Im ersten Schritt werden die Zeiger 
auf das erste und letzte Element gesetzt. Dann wird die Liste halbiert und 
der Eintrag in der Tabellenmitte mit dem Suchbegriff verglichen. Ist der 
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Suchbegriff größer als dieser Eintrag, kann die Suche auf die obere 
Tabellenhälfte reduziert werden. Im nächsten Schritt ist das Intervall also 
auf die obere Tabellenhälfte reduziert und die Halbierung beginnt wieder. 
So wird das Intervall sukzessive verkleinert, bis nur noch ein Element 
übrigbleibt. Stimmt dieses nicht mit dem Suchbegriff überein, liegt kein 
Eintrag in der Tabelle vor. Die maximale Zugriffszahl reduziert sich auf: 


log2(n) 


Dabei ist n die Zahl der Zugriffe und 2*n gibt die Tabellengröße an. Bei 
256 Elementen ist die Liste nach maximal acht Zugriffen durchsucht. Die 
lineare benötigt dagegen 256 Zugriffe. Das binäre Suchverfahren wird in 
XREF verwendet, um einen Namen in der Tabelle mit den 
Schlüsselwörtern zu finden, da diese für solche Zwecke vorbereitet wurde. 


Damit deutet sich schon an: das Verfahren funktioniert nur bei sortierten 
Tabellen. Dies ist aber bei Variablenlisten im allgemeinen nicht der Fall. 
Kein Programmierer vergibt die Namen in alphabetisch sortierter Form. 
Also ist die Liste sortiert aufzubauen. Dies bedeutet, daß bei jedem neuen 
Namen eine Umsortierung der Tabelle erforderlich wird. In der Regel läuft 
dies auf ein Verschieben aller nachrangigen Einträge um einen 
Tabellenplatz hinaus. Was bei der Suchzeit eingespart wird, geht nun beim 
Sortieren wieder verloren, denn insbesondere das Verschieben von Strings 
erfordert Aufwand. 


Also muß eine andere Strategie her. Um weitere Umwege zu vermeiden, 
gehe ich direkt auf die verwendete Methode ein. Es kommen verkettete 
Listen mit einem Zugriff über einen einstufigen Index zum Einsatz. Was 
steckt hinter diesem Begriff? 


Nun, einmal tritt das Problem der Sortierung auf. Die Tabelle ist 
alphabetisch geordnet auszugeben. Andererseits ist der Aufwand zur 
Sortierung möglichst gering zu halten. Zur Lösung eignen sich verkettete 
Listen (Bild 2.13). 
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Bild 2.13: Aufbau verketteter Listen 
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Es werden jeweils zwei Tabellen angelegt. Eine Tabelle dient zur Aufnahme 
der eigentlichen Namen. Die andere Tabelle dient zur Aufnahme von 
Zeigern. Da beide Tabellen gleiche Länge besitzen, kann jeweils ein Name 
und ein Zeiger als Einheit angesehen werden. Die Werte in der 
Zeigertabelle sind nun so einzustellen, daß sie die Position der logisch 
folgenden Sätze angeben. Damit lassen sich diese physikalisch an jeder 
beliebigen Position in der Tabelle abspeichern. Die Zeiger stellen eine 
logisch verknüpfte Kette her, über die sich dann die Namen in sortierter 
Reihenfolge ermitteln lassen. Eine separate Variable (kopf) enthält einen 
Zeiger auf das erste Element dieser Liste. Das Ende der Liste wird durch 
den Zeiger mit dem Wert nil markiert. Der Wert nil hängt von der 
Implementierung ab (negative Zahlen oder Null). Eine recht elegante 
Methode, die eine Sortierung ohne großen Aufwand erlaubt. 


Aber die Sache hat wieder einen Nachteil. Da die Liste physikalisch 
unsortiert vorliegt, klappt die Binärsuche nicht mehr. Also ist die Liste 
linear zu durchsuchen. Bei 500 Einträgen ein erheblicher Aufwand. 
Offenbar scheinen sich die Forderungen nach kurzer Suchzeit und 
geringem Sortieraufwand zu widersprechen. 


Diese Fragestellung hat natürlich Generationen von Informatikern 
beschäftigt, so daß mittlerweile mehrere Lösungen bekannt sind. 


Um die Suche in der Tabelle zu verkürzen, wird ein Trick verwendet: Wenn 
eine Liste zu lang ist, wer hindert uns denn an der Aufteilung in mehrere 
Teillisten? Diese sind dann wesentlich kürzer und lassen sich demnach 
schneller durchsuchen. Wie teilt man die Liste auf und in welcher Teilliste 
ist zu suchen? 


Hier gibt es ein einfaches Verfahren. Jeder Variablenname beginnt mit 
einem Buchstaben des Alphabets. Die Teillisten werden nun so 
organisiert, daß sie den einzelnen Buchstaben zugeordnet sind. Dann 
reicht das erste Zeichen eines Namens zur Identifikation der Teiltabelle. 
Anschließend kann eine weitere Prüfung der Einträge auf 
Übereinstimmung erfolgen. Wird der Name nicht gefunden, steht auf jeden 
Fall fest, daß er auch nicht in den anderen Teiltabellen auftritt. Das 
Verfahren wird als indexsequentielle Suche bezeichnet. Der Aufbau einer 
solchen Tabelle ist Bild 2.14 zu entnehmen. 
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Bild 2.14: Liste mit einer Indextabelle 


In unserem Fall enthält die Indextabelle 27 Einträge, da auch Konstanten 
(%...) zu speichern sind. Die Kopfzeiger der Indextabelle verweisen auf den 
ersten Eintrag in der Teilliste. Existiert keine Teilliste, wird der Zeiger mit 
dem Wert nil belegt. Bei sehr langen Teiltabellen kann der Index auch 
mehrstufig angelegt werden. Damit lassen sich dann sehr effiziente 
Zugriffe erzielen. Die Implementierung in XREF benutzt aber nur einen 
einstufigen Index. 


Damit ist die Aufgabe fast schon gelöst (hoffentlich?). Eine Kleinigkeit soll 
aber noch angesprochen werden. Es kann vorkommen, daß eine Variable 
mehrfach in einer Zeile auftritt. Es stört aber, wenn in der Referenzliste 
die gleiche Zeilennummer bei einer Variablen mehrfach auftritt. Vor dem 
Eintrag der Zeilennummer ist also zu prüfen, ob diese nicht bereits 
vorhanden ist. 


Weiterhin ist das Problem Groß-/Kleinschreibung zu lösen. Vor jedem 
Vergleich werden beide Strings in Großbuchstaben konvertiert. Damit wird 
nun endgültig mit der Implementierung begonnen. 


Die Implementierung 


Nach diesen Vorüberlegungen besteht noch die Aufgabe, die Konzepte in 
geeignete Algorithmen zu überführen. Um das Programm transparent und 
änderungsfreundlich zu halten (welch dehnbarer Begriff), empfiehlt sich 
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eine Aufgliederung in Teilmodule. Bild 2.15 zeigt eine Übersicht über diese 
Module und deren Zusammenschaltung. 
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Bild 2.15: Modulhierarchie in XREF.BAS 











Das Bild deutet bereits den komplexen Aufbau des Programmes an. 


Vor der Diskussion der einzelnen Module sollen die wichtigsten Variablen 
noch kurz beschrieben werden: 


<maxentry Größe der Tabelle mit Schlüsselwörtern 
keyword$ () Tabelle mit den Schlüsselwörtern 
keycode?% () Tabelle mit den Codes (unbenutzt) 
index1%() Indextabelle mit Kopfzeigern 

%tablen Größe Referenztabelle (1000) 

tableptr?% () Tabelle mit Listenzeigern 

tablename$ () Tabelle mit Variablennamen 
tableline$() Tabelle mit Zeilennummern 
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Die Größe der Referenztabelle läßt sich leicht durch die Konstante %tablen 
variieren. 


Nun aber zur Beschreibung der einzelnen Module: 
Main 


Im Hauptmodul werden die wichtigsten Variable reserviert. Dann 
entscheidet der Eingabemodus (Kommando- oder Interaktivmodus), ob die 
Kopfmeldung mit der Abfrage des Dateinamens erscheint, oder ob diese 
Informationen aus der Kommandozeile zu separieren sind. Die 
Unterprogramme »parameter« und »getval« dienen zur Analyse der 
Eingaben und wurden bereits im Abschnitt zum Programm LISTER 
besprochen. Nach dem Öffnen der Dateien beginnt der Aufbau der 
internen Tabellen (init). In der Schleife: 


WHILE (NOT (EOF (ein?) 
WEND 


wird die Quelldatei zeilenweise eingelesen. Kommentare sind durch 
»skiprem« zu erkennen. Das Unterprogramm »ausgabe« sorgt für eine 
Aufbereitung des Quelltextes (Zeilennummern, Seitenkopf etc.) und dessen 
Speicherung. Das Modul »scanner« enthält nur Code zur Analyse der 
eingelesenen Texte. Nach Beendigung der Schleife wird die Referenztabelle 
an den Quelltext angehängt. XREF schließt die Dateien und terminiert. 
Die Modularisierung erlaubt einen kompakten Aufbau des 
Hauptprogramms. 


!Syntaxfehler, NURDie Hilfsmodule 

Nun werden die neu hinzugekommenen Hilfsmodule vorgestellt. 

init 

Nach dem Programmstart ist die Tabelle mit den Schlüsselwörtern 


aufzubauen. Dies erfolgt in init, welches die DATA-Anweisungen in das 
Feld keyword$() einliest. 


ausgabe 


Dieses Modul dient zur formatierten Ausgabe des Quelltextes in die 
Ergebnisdatei. Seitenwechsel werden durch Aufruf des Programmes 
»pageskip« gesteuert. Kommentarzeilen erhalten keine Zeilennummer. Der 
Aufbau lehnt sich an LISTER an. 


scanner 


Hier ist die eingelesene Zeile (text$) auf Variablen- und Labelnamen zu 
untersuchen. Die eigentliche Analyse erfolgt in einer DO LOOP-Schleife, in 
der das Unterprogramm »gettoken« aufgerufen wird. Bei erfolgreicher 
Suche wird die Variable: 


token? = %true 
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gesetzt. Der gefundene Name ist im Parameter »tokentxt$« gespeichert. Mit 
dem Aufruf »keychk« prüft das Modul »scanner« ob ein Schlüsselwort als 
token zurückgegeben wurde. Nur wenn dies nicht zutrifft, sorgt das Modul 
»writeref« für einen Eintrag in der Referenzliste. 


gettoken 


Dieses Modul sucht nach gültigen Variablen- und Labelnamen. Durch 
»skipblank« werden führende Leerzeichen entfernt. Mit »skiprem« und 
»skipstring« lassen sich Kommentare und Zeichenketten überspring. Wind 
win Name erkannt, ist dieser im Parameter token$ zurückzugeben. Die 
Analyse geschieht in der Schleife: 


WHILE search? AND ptr% <= lang% 


WEND 


Der Aufbau eines Variablennamens wurde bereits beim Entwurf ausgiebig 
diskutiert. Zuerst ist der Anfang des tokens zu suchen (%,8,&,A..Z,a..z). 
Wird dieser Anfang gefunden, beginnt die Analyse. Das Ende eines tokens 
markieren Zeichen ungleich (a..z A..Z $ % & ! #). Damit lassen sich auch 
Schlüsselwörter (IF, THEN, ELSE) und numerische Konstanten (&HFF) 
auswerten. Am Zeilenende oder bei Beginn eines Kommentars wird die 
Suche beendet. Das Flag found% signalisiert das Ergebnis (true, false). 


keychk 


Im Parameter symbol$ wird der Suchbegriff als Text übergeben. Das 
Modul prüft, ob dieser Begriff in der Tabelle mit den Schlüsselwörtern 
vorkommt. In diesem Fall handelt es sich um ein Basic-Schlüsselwort. Das 
Flag found% wird auf true gesetzt. Zusätzlich geben die Parameter code% 
und index% einen Code und die Position in der Schlüsseltabelle an. Beide 
Parameter werden in XREF aber nicht weiter ausgewertet. Vor der Suche 
wird der Suchtext in Großbuchstaben konvertiert. Als Strategie wird die 
Binärsuche verwendet. Damit läßt sich die Zahl der Zugriffe gering halten. 


writeref 


Die Abspeicherung des Namens (token$) und der Zeilennummer (zeile%) in 
die Referenztabelle erfolgt in diesem Modul. Zuerst ist der Name in 
Großbuchstaben zu wandeln. Dann wird an Hand des erstens 
Buchstabens die Position in der Indextabelle (index1%() bestimmt. Auf die 
Abspeicherung der Zeichen (%, A .. Z) in dieser Indextabelle wurde 
verzichtet, da sich über die ASCII-Codes eine eindeutige Zuordnung ergibt. 


Der Zeiger index1%(ptr%) verweist nun auf den jeweiligen Listenkopf. Diese 
Teilliste ist sequentiell auf gültige Einträge zu durchsuchen und 
gegebenenfalls ist der neue Name in die Teilliste einzufügen. Hierfür 
existieren die Hilfsprogramme »search« und »addtxt«. Das Listenende wird 
durch einen Zeiger mit dem Wert %nil markiert. Liegt noch keine Tabelle 
vor, ist der erste Eintrag direkt mit addtxt auszuführen. Hierfür ist der 
Steuercode auf 1 zu setzen. Andernfalls beginnt erst die Suche mit search. 
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Bei gefunden»n Einträgen wird die Zeilennummer an der angegebenen 
Position an den Teilstring angehängt (tableline$0). 


Der von search zurückgegebene Code (code%) steuert die Art der 
Einfügung in addtxt. Die beiden Module search und addtxt sind so 
aufgebaut, daß die Steuercodes kompatibel sind. Ist code% = 0, dann liegt 
der Eintrag bereits vor. Der Parameter ptr% zeigt auf den entsprechenden 
Satz. 


search 


Dieses Modul erhält als Parameter einmal den Zeiger auf den Listenkopf 
(ptr%) sowie den Suchtext in der Variablen token$. Dann wird die 
verkettete Liste sequentiell durchsucht. Hierzu dienen die Zeiger. 
Vergleiche zwischen Suchtext und Tabellentext dienen zur Ermittlung der 
Position des neuen Satzes. Das Modul gibt in der Variablen result% das 
Ergebnis der Suchoperation zurück: 


Result% Bemerkung 
0 Satz gefunden, ptr% -> aktueller Satz 
Satz nicht gefunden -> einfügen: 
1 am Tabellenanfang, ptr% -> Tabellenanfang 
2 an Tabellenende, ptr% -> letzter logischer Satz 
3 n Tabelle einfügen, ptr% -> logischer Vorgänger 


Tabelle 2.7: Ergebniscodes von Search 


Diese Codes wurden so gewählt, daß addtxt damit den Eintrag steuern 
kann. 


addtxt 


Dieses Modul übernimmt das Einfügen eines neuen Variablennamens in 
die Liste. Der Parameter zeigt auf den Satz, hinter dem der neue Name 
logisch einzuordnen ist. Physikalisch ist der Satz hinter der Variablen 
top% abzuspeichern, da dieser Zeiger das Tabellenende markiert. Der 
Parameter varname$ enthält den ASCII-String des Variablennamens. Mit 
dem Parameter code% wird der Einfügemodus gesteuert. Die Belegung 
dieser Steuercodes wurde bereits beim Modul search besprochen. 


addtable 


Nach Abschluß der Analyse muß die Referenztabelle an die Ausgabedatei 
angefügt werden. Dies erfolgt im Unterprogramm addtable. Beginnend mit 
der Indextabelle index1%0 werden die Teillisten in logischer Folge 
sequentiell durchlaufen. Die Namen und Zeilennummern sind dann in die 
Ausgabedatei zu kopieren. Dabei ist natürlich auf eine geeignete 
Formatierung zu achten. Zum Abschluß werden die Information über 
Zeilen- und Variablenzahl ausgegeben. Damit ist die Aufbereitung der 
Referenzliste abgeschlossen. 


Weitere Einzelheiten sind dem nachfolgenden Programmlisting zu 
entnehmen, welches mit XREF erstellt wurde. 
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Erweiterungsvorschläge 


Das Programm gibt zur Zeit noch keine Basic-Funktionen in der 
Referenzliste aus. Weiterhin fehlt auch die Typangabe bei den Variablen 
(Integer, Real etc.). Diese beiden Funktionen könnten nachgerüstet 
werden. Weiterhin ist vorstellbar, daß über eine Option die Ausgabe auf 
dem Drucker automatisch erfolgt. Auch die Verarbeitung von Include- 
Dateien ist sicherlich eine loehnende Aufgabe. 


xXREF /2=50 (ce) Born Version 1.0 
Datei : xref.bas Datum : 05-13-1992 Seite : 1 
Zeile Anweisung 


TKKAKKKAKKKKHKKHTKK KK KH HK KH KH KH HK KH KH KK KH KH KH KK KH KH KH TH KH KK TH KK KH KK KH KH KH KH KH KO 


'ı File : XREF.BAS 

'ı Vers. :- 1,0 

'ı Last Edit : 22. 4.92 

'ı Autor : G. Born 

'ı Files : INPUT, OUTPUT 

'ı Progr. Spr.: PowerBASIC 2.x 

'ı Betr. Sys. : DOS 2.1 - 5.0 (+ DR-DOS 5.0/6.0) 


| 
| 
| 
| 
I 
! Funktion: Das Programm liest den PowerBASIC Quellcode 
! ein und gibt diese mit Zeilennummern versehen in 
! einer zweiten Datei wieder aus. Gleichzeitig 
! wird eine Crossreferenzliste der auftretenden 
! Variablen erzeugt. Diese Liste wird dann an die 
! Quelldatei angehängt. Die Datei besitzt den 
! gleichen Namen wie die Quelldatei, aber mit 

"1 der Extension .REF. Die Datei kann per Editor 
! angesehen werden und läßt sich mit dem DOS 
! Programm PRINT auf dem Drucker ausgeben. 
| 
| 
I 
| 
| 
I 
| 
| 
| 


Aufruf: XREF Filename /Optionen 
Optionen: /Lxx linker Rand 
/Rxx rechter Rand 
/2xx Zeilen pro Seite 


Die Werte in [] geben die Standardeinstellung 
wieder. Wird das Programm ohne Parameter aufge- 
rufen, sind Dateiname und Optionen explizit ab- 
Je! zufragen. 
IKAKKKKKKKKKHKKH KK KK TH KH TK HK KK TH KH K KH KH KH AK KK KH TH KH KH TH AK KK KK TK KH KK KH KH TH KK KH KH IK A KH A KH &ÜUO 


'! Variable und Konstanten definieren 





1 $true = &HFFFF: %false = 0: %nil = 0 

2 tmpx% = 0 'ı Hilfsvariable 

3 zeile% = O '! Zeilennummer Listing 
4 seite? = 1 '! Seitennummer Listing 
5 maxzeile% = 60 '! Zeilen pro Seite 

6 rechts% = 75 '!i rechter Rand 

7 links% = 0 'ı linker Rand 

8 spalte% = 0 'ı Einrückung 

9 remflg% = %false 'ı Kommentar gefunden 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


PowerBasic-Programmierhandbuch 


10 lang% = 0 ' 


ıl 
Hr 


11 ein? 
12 aus% = 2 J 
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! Länge Zeile 


! Dateinummer Eingabe 
! Dateinummer Ausgabe 


'### Tabellen für XREF, automatischer Init durch Basic 


13 <maxentry = 295 ! 
14 DIM keyword$ (1:%maxentry) s 
15 DIM keycode% (1:3maxentry) i 


16 DIM index1% (0:26) 1 
17 %$tablen = 1000 ! 
18 DIM tableptr% (1:3tablen) 
19 DIM tablename$ (1:%tablen) 1 
20 DIM tableline$(1:%tablen) ' 











21 top? = O ' 


22 ON ERROR GOTO fehler 1 


! Feldgröße 
! Schlüsselwörter 
! Schlüsselcodes 


Indextabelle 
Tabellengröße XREF 
ptr auf Folgesatz 
Variablennamen 
Zeilennummern 


! oberster Eintrag 


! Fehlerausgang 


"HHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HHHHHH 


'# Hauptprogramm 


# 


"HHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HHHH HH HH HH HH HHHH 


23 kommando$ = COMMANDS$S ' 
24 IF LEN (kommando$) = 0 THEN \ 
25 CLS u 


! Parameter? 
! User Mode? 
! clear Screen 


26 PRINT "Cross Referenz Generator"; 


27 PRINT " (ce) Born Version 1.0" 


29 PRINT "Optionen [ /L=00 linker Rand 





/R=75 rechter 


30 PRINT " [ /Z=60 Zeilen pro Seite 
] 
" 
31 PRINT 
32 INPUT "File : ", £ilename$ 
33 INPUT "Optionen : ",options$ 
34 PRINT 
35 ELSE 'ı Kommando Mode 
36 ptr% = INSTR (kommando$,"/?") '! Option /? 
37 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 
38 PRINT "X REF (ce) Born Version 1.0" 
39 PRINT 
40 PRINT "Aufruf: XREF <Filename> <Optionen>" 
41 PRINT 
42 PRINT "Optionen :" 
43 PRINT 
44 PRINT " /L=00 setzt den linken Rand" 
45 PRINT " /R=75 setzt den rechten Rand" 
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46 
47 
48 
einer" 
49 
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PRINT " /Z=60 setzt die Zeilenzahl pro Seite" 
PRINT 
PRINT "XREF erzeugt aus PowerBASIC Dateien ein Listing mit 


PRINT "Cross-Referenz-Tabelle aller Variablen des 


Programmes. Die" 


50 
im Lis 


51 


dem Namen 


t 


" 


PRINT "Ränder und die Zahl der Zeilen pro Seite lassen sich 


ing " 
PRINT "einstellen. Die Ausgabe erfolgt in eine Datei mit 











52 PRINT "xxxx.REF, die anschließend ausgedruckt werden kann." 

53 PRINT 

54 SYSTEM 

55 END IF 

56 ptr% = INSTR (kommandos,"/") '! Optionen? 

57 IF ptr% = 0 THEN 

58 filename$ = kommando$ '! nur Filename 

59 ELSE 

60 filename$ = LEFT$ (kommando$,ptr% -1) '! Filename separieren 

61 options$ = MIDS$S (kommando$,ptr%) '! Optionen separieren 

62 END IF 

63 END IF 

64 GOSUB parameter 'ı Optionen decodieren 

65 IF (rechts% < links%) or (maxzeile% < 10) THEN '! sinnlose 

66 PRINT 'ı Einstellung 

67 PRINT "Bitte Randeinstellung neu setzen" 'ı Fehlerexit 

68 END 'ı Exit 

69 END IF 

70 IF filename$ = "" THEN '! Leereingabe? 

71 PRINT 

72 PRINT "Der Dateiname fehlt" 

73 END 'ı Exit 

74 END IF 

75 ptr% = INSTR(filename$,".") '! hat Datei eine 
Extension? 

76 IF ptr% > 0 THEN 

77 outfile$ = LEFT$(filename$,ptr?%) + "REF" '! Filename ohne 
Extension 

78 ELSE 

79 outfile$ = filename$ + ".REF" '! Extension anhängen 

80 END IF 

' prüfe ob Datei vorhanden, nein -> exit 

81 OPEN filename$ FOR INPUT AS #ein% 'ı Öffne Eingabedatei 

82 OPEN outfile$ FOR OUTPUT AS #aus% 'ı Öffne Ausgabedatei 

83 PRINT 
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84 PRINT "Die Datei: ";filename$;" wird bearbeitet" 
85 GOSUB init 'ı Tabellen aufbauen 
86 GOSUB pageskip '! Seitenkopf ausgeben 
87 WHILE NOT (EOF (ein%)) 'ı Datei sequentiell 
lesen 
88 LINE INPUT #ein?, linie$ 'ı lese Zeile 
89 CALL skiprem(1,1linie$,remflg%) 'ı prüfe auf Kommentar 
90 lang? = LEN(linie$) '! ermittle Zeilenlänge 
91 CALL ausgabe (linie$) 'ı drucke Zeile 
92 IF (lang% > 0) AND (NOT remflg%) THEN '! nur Anweisungen 
93 CALL scanner (linie$) 'ı analysiere Satz 
94 END IF 
95 WEND 
96 PRINT "Referenzliste erzeugen" 
97 GOSUB addtable 'ı xref Liste erzeugen 
98 CLOSE '! Dateien schließen 
99 PRINT 
100 PRINT "Ende Cross Referenz Generator" 
101 END 
HH HH HH HH HH HH HH HHHHEHHHEH 
'# Hilfsroutinen # 
HH HH HH HH HH HH HH HH HHHHEHHHEH 
102 fehler: 
Me a a rn a a a a a a ee a a a a a ai aa 
'ı Fehlerbehandlung in XREF 
Ve a a a a Eu a a a a N a ee de u Ba San Ba N a re DE Ve aa en a ie SE: a Ya a er ee 
103 IF ERR = 53 THEN 
104 PRINT "Die Datei ";filename$;" existiert nicht" 
105 ELSE 
106 PRINT "Fehler : ";ERR;" unbekannt" 
107 PRINT "Programmabbruch" 
108 END IF 
109 END 'ı MSDOS Exit 
110 RETURN 
111 init 
Wa a a a a a a a a a a a a a a 
'ı Initialisierung der Tabelle mit den Schlüsselwörtern 
I t a En a En a a a en Er a a a a rn le a nn a bern ae 
112 FOR i% = 1 to %maxentry 
113 READ keyword$ (1%), keycode?% (i%) '! Schlüsselwörter 
einlesen 
114 NEXT i% 
115 RETURN 
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116 parameter: 


'! Decodiere die Eingabeoptionen 


117 ptr% = INSTR (options$,"/Z=") 

118 IF ptr% > O THEN CALL getval (maxzeile%) '! Zeilen / Seite 

119 szeile% = maxzeile% + 1 '! Zeilennr Seite 
wechseln 


120 ptr% = INSTR (options$,"/L=") 
121 IF ptr% > 0 THEN CALL getval (links%) '! linker Rand 


122 ptr% = INSTR (options$,"/R=") 
123 IF ptr% > 0 THEN CALL getval (rechts?) '! rechter Rand 


124 RETURN 


125 SUB getval (wert?) 


'! Decodiere den Eingabestring in eine Zahl 
126 SHARED options$, ptr% 
127 LOCAL i% 


128 ptr% = ptr% + 3 'ı ptr hinter /x= 
129 i%$ =1 
130 WHILE ((ptr%+i%) =< LEN (options$)) AND _ 


131 (MIDS$S (options$ ,ptr%+i1%,1) <> " ") 

132 i% = i% +1 'ı Ziffernzahl + 1 
133 WEND 

134 wert? = VAL (MID$ (options$,ptr%,i?)) 'ı decodiere die Zahl 


135 END SUB 


136 pageskip: 
ı 


'! Seitenvorschub mit Kopf (Dateiname, Datum, Seite) 





137 IF szeile% < maxzeile% THEN RETURN 'ı kein Seitenwechsel 
1 

138 IF seite% > 1 THEN 'ı 1. Seite k. Vorschub 

139 PRINT #aus%, CHRS$S (12) 'ı Vorschub 

140 szeile% = 5 'ı 5 Kopfzeilen 

141 ELSE 

142 PRINT #aus%, "X REF ";, options$; SPACE$S (27); 

143 PRINT #aus%, "(c) Born Version 1.0" 

144 szeile% = 6 'ı 6 Kopfzeilen 

145 END IF 

146 PRINT #aus?, "Datei : ";filename$;" Datum : ";DATES; 

147 PRINT #aus?, " Seite : "; seite% 

148 PRINT #aus?%, 

149 PRINT #aus?%, SPACES (links?) ; " Zeile Anweisung" 

150 PRINT #aus?%, 
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151 


152 


153 


154 LOCAL linie$, rest%, spalte% 
155 SHARED aus, links%, rechts%, zeile% 
156 SHARED lang%, szeile%, remflg? 
157 linie$ = text$ 
158 GOSUB pageskip 
159 PRINT #aus?%, SPACES (links%); 
160 IF (lang% > 0) AND (NOT remflg%) THEN 
161 INCR zeile% 
1 
162 PRINT #aus%, USING "####4# "; zeile%; 
drucken 
163 ELSE 
164 PRINT #aus%, SPACE$ (6); 
165 END IF 
166 spalte% = links% + 7 
167 rest% = rechts% - spalte% 
168 CALL skipblank (spalte%, linie$) 
169 PRINT #aus?%, LEFTS$S (linie$,rest?%) 
170 linie$ = MID$(linie$, rest% + 1) 
171 INCR szeile% 
172 WHILE LEN(linie$) > rest% 
173 GOSUB pageskip 
174 PRINT #aus%, SPACE$ (spalte?%); 
175 PRINT #aus%, LEFT$ (linie$,rest?%) 
176 linie$ = MID$ (linie$,rest% + 1) 
177 INCR szeile% 
178 WEND 
179 IF LEN(linie$) > 0 THEN 
180 GOSUB pageskip 
181 PRINT #aus%, SPACE$ (spalte%) ;linie$ 
182 INCR szeile% 
183 END IF 
184 END SUB 
185 SUB scanner (text$) 


INCR seite% 


RETURN 
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Ausgabe der 
rest% gibt an, 
werden dürfen. 





ingelesenen Zeile in die Ausgabedatei. 
wieviele Zeichen pro Zeile gedruckt 
Ist die eingelesene Zeile länger, 
sie auf mehrere Ausgabezeilen aufgeteilt. 


wird 


kopiere String 
Seitenvorschub? 


auf linken Rand 


! Zeile im Listing + 


! Zeilennummer 


Leerzeichen 


linker Rand setzen 


Restzeilenlänge 
merke Blanks 
Ausgabe Teilstring 
Reststring 


String > Zeile 
Seitenvorschub? 
linker Rand 
Teilstring ausgeben 
Reststring bestimmen 
Zeile im Listing + 1 


Seitenvorschub? 
Reststring ausgeben 
Zeile im Listing + 1 
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'! Scan Quellcode zeilenweise und trage alle Variablen, 
Labels 
'! und Prozeduren in die Referenztabelle ein. 


186 LOCAL token%, tokentxt$, ptr?%, found?%, code% 
187 LOCAL zchn$, number? 
188 SHARED linie$, zeile% 














189 ptr% = 1 'l start mit 1. 
Zeichen 

190 DO 

191 CALL gettoken (ptr%, linie$,tokentxt$,token%) '! suche token 

192 IF token% THEN 

193 zchn$ = MID$ (tokentxt$,1,1) 'ı 1. Zeichen 

194 IF (zchn$ <> "$") AND (zchn$ <> "&") THEN 'ı ignoriere 
Ss RE 

195 CALL keychk (tokentxt$, £found%, code%, number%) '!! 
Schlüsselwort? 

196 IF NOT found% THEN '! nur Variable 

197 CALL writeref (tokentxt$,zeile?) 'ı schreibe 
Zeilennr. 

198 END IF 


199 END IF 
200 END IF 
201 LOOP WHILE (token?%) 'ı Ende erreicht? 


202 END SUB 
203 SUB gettoken (ptr%,text$,token$, found?) 
'ı durchsuche Zeile auf Variablennamen, found? = TRUE falls 


'ı Variable gefunden. Der Name wird dann in token 


zurückgegeben. 
a Se ET ES 


204 LOCAL first%, remflg%, search? 'ı lokale Variablen 

205 SHARED lang? 'ı globale 
Variablen 

206 found? = %false 'ı init Flag nicht 
gefunde 

n 

207 search? = true 'ı init Flag 

208 WHILE search% AND ptr% <= lang‘ '! suche 
Variablenanfang 

209 CALL skipblank (ptr?%,text$) 'ı skip führende 
Blanks 

210 IF ptr% >= lang% THEN EXIT SUB '! Zeilenende -> 
Exit 
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211 CALL skiprem (ptr%,text$,remflg%) 
212 IF remflg% THEN EXIT SUB 
fertig 


213 IF MID$(text$,ptr%,1) = CHR$(34) THEN 
214 CALL skipstring (ptr%, text$) 

215 IF ptr% >= lang? THEN EXIT SUB 

216 END IF 


217 zchn$ = UCASE$ (MID$ (text$,ptr?,1)) 
separieren 

218 IF ((zchn$ < "A") OR (zchn$ > "Z")) 
Name 


219 AND (INSTR("$&%",zchn$) = 0) THEN 
220 INCR ptr?% 

221 ELSE 

222 search% = %false 

223 END IF 

224 WEND 


225 IF search?% THEN 


226 EXIT SUB 
-> Exi 
t 
227 END IF 


'ı ### Anfang eines Tokens gefunden #### 


228 first% = ptr% 
token 
229 search% = true 


230 WHILE search% AND ptr% <= lang? 
Variablenende 
231 zchn$ = UCASE$ (MID$ (text$,ptr?,1)) 


separieren 
232 IF (zchn$ < "A") OR (zchn$ > "Z") THEN 
233 IF (zchn$ < "0") OR (zchn$ > "9") THEN 
234 IF INSTR("$%&!#",zchn$) = 0 THEN 
235 search? = false 
236 DECR ptr? 
wegen Fehler 
237 END IF 
nicht geht! 
238 END IF 


239 END IF 
240 INCR ptr% 


241 WEND 


242 found% = true 
243 token$ MID$S (text$, first, (ptr%-first%)) 
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Kommentar? 
ja -> Zeile 


String "....."2 
skip string 
Ende -> Exit 


Zeichen 


Suche Anfang 


" 


nein -> next 


ja -> exit 


gefunden? 


nein, Zeilenende 


merke Anfang 
init Flag 

suche 

Zeichen 

Ende Name? 
gefunden 
korrigiere ptr% 


da EXIT WHILE 


nein -> next 


gefunden |! 
get token 
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244 END SUB 
245 SUB keychk (symbol$,£ound%, code%, index?) 
INS Ze ne era ee aan a a ee ae een Sn ae ade as aaa anne 
'ı prüfe, ob symbol in der Tabelle mit den Schlüsselwörtern 
'ı vorliegt, falls ja -> found? = true, code% = Schlüsselcode 
'! sonst -> found% = false, index% = Nummer in Tabelle 
'ı Es wird ein binäres Suchverfahren benutzt. 
an DE en Eh a En N Be a EEE a En ey a ir BE a ne 
246 LOCAL low%, high%, ptr?% ,„ token$ 
247 SHARED keycode%(), keyword$ () 
248 low% = 1 '! Untergrenze 
249 high% = %maxentry 'ı Obergrenze 
250 £found% = %false 'ı not found 
251 token$ = UCASE$ (symbol$) 'ı Großbuchst. 
252 WHILE (low% + 1 < high?) 'ı Binärsuche in 
Tabelle 
253 ptr% = (high% + low?) / 2 'ı calc. Index 
254 IF token$ = keyword$ (ptr%) THEN 
255 found? = %true '! gefunden 
256 code% = keycode?% (ptr?) 'ı Befehlscode 
257 index? = ptr% 'ı Tabellenindex 
258 EXIT SUB 'ı Exit 
259 ELSE 
260 IF token$ < keyword$ (ptr%) THEN 'ı welche Hälfte? 
261 high% = ptr% '! neue Obergrenze 
262 ELSE 
263 low% = ptr% '! neue Untergrenze 
264 END IF 
265 END IF 
266 WEND 
267 IF token$ = keyword$ (l1ow%) THEN 'l erstes Keyword 
268 found% = true '! gefunden 
269 code% = keycode?% (low?) 'ı Befehlscode 
270 index% = 1low% 'ı Tabellenindex 
271 EXIT SUB 'l ja -> EXIT 
272 END IF 
273 IF token$ = keyword$ (high%) THEN '! letztes Keyword? 
274 found? = %true '! gefunden 
275 code% = keycode?% (high?) 'ı Befehlscode 
276 index% = high% 'ı Tabellenindex 
277 EXIT SUB 'l ja -> EXIT 
278 END IF 
279 END SUB 
280 SUB writeref (token$, zeile?%) 


1 


'ı Eintrag des Variablennamens und der Zeilennummer 
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'ı in die Referenzliste. Ist kein Eintrag vorhanden, 
'ı wird ein neuer Eintrag mit dem Namen angelegt, sonst 
'! wird nur die Zeilennummer angehängt. 
ID a2 Eee nee aaa we ae ea End aaa a een ae Ede aa Saat 
281 LOCAL zchn$, ptr%, code%, tmp? 
282 SHARED index1%(), tableline$(), top% 
283 zchn$ = UCASES$S (MID$ (token$,1,1)) '! erstes Zeichen 
284 IF zchn$ = "%" THEN 
285 ptri = 0 '! Index % 
286 ELSE 
287 ptr% = ASC(zchn$) - 64 'ı Index A .. 2 
288 END IF 
289 IF (ptr% > 26) or (ptr% < 0) THEN 
290 PRINT "Fehler : Variablenname falsch " 
291 EXIT SUB 'ı Exit 
292 END IF 
293 IF index1% (ptr%) = %nil THEN '! kein Eintrag? 
294 CALL addtxt (ptr%,1,tokens$) 'ı Eintrag anlegen 
295 tableline$(top%) = STR$ (zeile%)+" " 'ı Eintrag Zeilennr. 
296 ELSE 
297 tmp% = index1% (ptr%) '! erster Satz 
298 CALL searchf (tmp%, token$, code?) 'ı suche Eintrag 
299 IF code% > 0 THEN '! neu anlegen? 
300 IF code% = 1 THEN 'ı an Anfang 
301 CALL addtxt (ptr%, code%, token$) '!ı ptr?® in index1%() 
302 ELSE 
303 CALL addtxt (tmp%, code%, token$) '! ptr? in tableptr() 
304 END IF 
305 tableline$ (top%) = STR$ (zeile%)+" " 'ı Eintrag Zeilennr. 
306 ELSE 'ı Eintrag vorhanden 
307 zchn$ = STR$S (zeile%) +" " '! Zeile in ASCII 
308 IF INSTR (tableline$ (tmp%) ‚zchn$) _ 'ı Zeile bereits 
309 > 0 THEN EXIT SUB 'ı vorhanden -> Exit 
310 tableline$ (tmp%) = tableline$(tmp%) + zchn$ '! add Zeilenr 
311 END IF 
312 END IF 
313 END SUB u write _ref 
314 SUB searchf (ptr%,token$,result%) 


! Suche den Variablennamen in der Liste. Es gelten folgende 
! Bedingungen: ptr?% -> pointer auf den ersten Satz in der 
! Teilkette. Ergebnisse: result% > 0 -> nicht gefunden 

'ı 0 gefunden -> ptr% zeigt auf Satz 
I 
| 
| 





' 1 an Tabellenanfang einfügen -> ptr?% zeigt auf Anfang 
i 2 an Tabellenende anhängen -> ptr% auf letzten Satz 
} 3 in Tabelle einfügen -> ptr% auf Vorgängersatz 
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315 
316 


317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 


337 
338 
Satz 


339 


340 
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LOCAL alt%, varname$, tabname$, last? '! 
SHARED tableptr%(), index1%(), tablename$ 


varname$ = UCASES (token$) ' 
alt% = ptr? h 
WHILE ptr% <> %nil ' 
tabname$ = UCASES$ (tablename$ (ptr%)) 1 
IF varname$ > tabname$ THEN ı 
last% = ptr% I 
ptr% = tableptr?% (ptr?) ! 
ELSE 
IF varname$ = tabname$ THEN ua 
result% = 0: EXIT SUB "1 
ELSE 
IF ptr® = alt% THEN Kl 
result% = 1: EXIT SUB N 
ELSE 
result% = 3 a 
ptr% = last%: EXIT SUB il 
END IF 
END IF 
END IF 
WEND 


result% = 2 2 
ptr% = last% "1 


END SUB '! search 


SUB addtxt (ptr?, code%, varname$) 


VIiS22sc22 2235 2-2 EJE Eiserne nannte 


ı 


| 

! 

! code bestimmt den Einfügemode: 

'ı 1 an Tabellenanfang einfügen -> ptr? 
! 2 an Tabellenende anhängen -> ptr% 
! 3 in Tabelle einfügen -> ptr?% 
! varname$ enthält den Variablennamen 


SHARED top%, tableptr?%(), tablename$() 
SHARED index1?% () 


INCR top% 
IF top% > %tablen THEN CALL full 
IF code% = 2 THEN 


tableptr% (top?) = 3nil 
tableptr? (ptr%) = top% 
ELSE 

IF code% = 1 THEN 

tableptr% (top?) = index1% (ptr?) 


Hilfsvariable 


0 


in Großbuchst. 
merke Zeiger 

bis Ende Liste 
Listenname 
gefunden? 

nein -> merke ptr% 
next entry 


gefunden? 
ja, ready 


Tabellenanfang 
ja, ready 


nein, einfügen 
ptr% auf Vorgänger 


Satz anhängen 
ptr% auf letzten 


Eintrag eines neuen Variablennamens in die Liste 
ptr% zeigt auf den Satz hinter dem eingefügt wird. 


in index1% (root) 
in tableptr% (last) 
in tableptr% (pred) 


! auf nächsten Satz 
! Überlauf 

! anhängen 

! Ende Liste 

! Link Folgesatz 


| erster Satz 
! Link Folgesatz 
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351 index1% (ptr%) = top% ' 
352 ELSE 
353 IF code% = 3 THEN ! 
354 tableptr?(top%) = tableptr?% (ptr?) ! 
355 tableptr% (ptr%) = top% ' 
356 ELSE 
357 PRINT "Fehler: falscher Code in add" 
358 END ! 
359 END IF 
360 END IF 
361 END IF 
362 tablename$ (top?) = varname$ 1 
363 END SUB 
364 SUB full 
'ı Fehlerabbruch bei Überlauf der Tabellen 
365 PRINT "Fehler interner Tabellenüberlauf 
366 END 
367 END SUB 
368 addtable: 
Mi na 
'! erzeuge Referenztabelle 
UNE ER a ee N ee En a ne en a re aa Ze a ae 
369 PRINT #aus%, CHR$ (12) | 
370 PRINT #aus?, "XREF-Tabell1le";Ss 
371 PRINT #aus%, "(c) Born Version 1.0" 
372 PRINT #aus%, "Datei ";filename$;" D 
373 PRINT #aus%, " Seite "; seite? 
374 PRINT #aus?%, 
375 INCR seite% 
376 szeile% = 3 
'!--- gebe die Referenztabelle formatiert 
377 FOR i% = 0 TO 26 
Indextabelle 
378 ptrx% = index1% (i?) 
379 WHILE ptrx% <> %nil 
380 PRINT #aus?%, tablename$ (ptrx%) 
381 INCR szeile% 
382 GOSUB kopf 
383 linie$ = tableline$ (ptrx?%) 
384 rest% = rechts% - links% 
385 WHILE LEN (linie$) > rest? 
ausgeben 
386 GOSUB kopf 
387 PRINT #aus%, SPACE$ (links%); 
388 tmpx% = rest% 
merken 


83 


Link Kopf 


zwischen Sätze 
Link Folgesatz 
Link neuen Satz 


Fehlerausgang 


Name eintragen 


" 


Seitenwechsel 
PACES$ (27); 


atum ";DATES$; 


'!l Seite + 1 


3 Kopfzeilen 


La 


aus 
über 


Index in Tabelle 
Liste bis Ende 
Name ausgeben 
Zeilenzähler + 1 
Seitenwechsel? 
hole Zeilennr. 
Drucklänge 
formatiert 


Seitenwechsel? 
linker Rand 
Drucklänge 
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389 WHILE (MID$S (linie$,tmpx%,1) <> " ") 
letzte 

390 AND (tmpx% > 9) 
abgeschnitten 

391 DECR tmpx% 

392 WEND 

393 PRINT #aus%, MID$ (linie$,1,tmpx%) 

394 linie$ = MID$ (linie$,tmpx%+1) 

395 INCR szeile% 

396 WEND 

397 IF LEN(linie$) > O THEN 

398 GOSUB kopf 

399 PRINT #aus%, SPACE$ (links%) ;linie$ 

400 PRINT #aus?%, 

401 INCR szeile%, 2 

402 END IF 

403 ptrx% = tableptr? (ptrx?%) 

404 WEND 





405 NEXT i®% 


406 szeile% = szeile% + 7 

407 GOSUB kopf 

408 PRINT #aus%, 

409 PRINT #aus%, "XREF Modul Information" 
410 PRINT #aus%, 

411 PRINT #aus%, "Lines read 
412 PRINT #aus%, "Symbols found 
413 PRINT #aus%, 

414 PRINT #aus%, "End XREF" 

415 PRINT #aus%, CHR$ (12) 


";zeile% 
";top% 








416 RETURN 
417 kopf: 


418 IF szeile% < maxzeile% THEN RETURN 


419 PRINT #aus%, CHR$ (12) 
420 PRINT #aus%, "Datei 
421 PRINT #aus%, " 

422 PRINT #aus%, 

423 szeile% = 2 

424 INCR seite% 


";filename$;" 
Seite : "; 


425 RETURN 


426 SUB skipblank (ptr%,text$) 
1 


seite? 


vermeide daß 
Zahl 

wird 
Teilstring 


Rest holen 
Zeilennr. +1 


Seitenwechsel 
Rest ausgeben 


next entry 
next index 


7 Zeilen res. 
Seitenwechsel 


Seitenvorschub 


Seitenwechsel? 


Seitenwechsel 
Datum 


";DATES$S; 


2 Kopfzeilen 


'ı zähle führende Blanks in einer Zeichenkett 





'! text$ = Zeichenkette, 


zeiger% = Zeiger in Kette 


427 SHARED lang? 
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428 
429 
430 
431 


432 


WHILE (ptr% =< lang?) and (MIDS (text$,ptr?,1) =" ") 
INCR ptr% 

WEND 

END SUB 


SUB skipstring (ptr%,text$) 


1 


'ı Es wird geprüft, ob ptr% auf ein " im Text zeigt. In 


diesem 
'ı Fall liegt ein String "...." vor, dessen Ende (") gesucht 
'ı wird. ptr% zeigt nach dem Ablauf auf das Zeichen hinter ". 
'l text$ = Zeichenkette mit Anweisung 
!l----- ------ ------ ---- -- -- -- -- -- - --- - - - - - - - - - - - - - - - - - - - - - - 
433 SHARED lang% 
434 IF MID$ (text$,ptr%,1) <> CHR$(34) THEN 
435 EXIT SUB 'ı kein String "..." 
436 END IF 
437 DO '! suche Ende String 
438 INCR ptr? 'ı next char 
439 LOOP UNTIL (MID$ (text$,ptr%,1) = CHR$(34)) OR (ptr% >= lang?) 
440 END SUB 
441 SUB skiprem (ptr%,text$, flag?) 





De a en a a ee 


'ı prüfe auf Kommentare, text$ = String mit Anweisung 


'ı ptr% = Zeiger in Text, flag% = true -> Kommentar gefunden 
Wise ss Beer swsn ass sdepi geredet 


442 CALL skipblank (ptr?%,text$) 'ı führende blanks 
entfernen 

443 IF INSTR(text$,"REM") = ptr% THEN '! scan Anfang = REM oder 
ı 

444 flag% = true 'ı Kommentar 

445 ELSE 

446 IF MID$ (text$,ptr?,1) = "'" THEN 

447 flag% = $true '! Kommentar 

448 ELSE 

449 flag% = false 'ı kein Kommentar 

450 END IF 

451 END IF 

452 END SUB 


Data-Anweisungen mit den reservierten Schlüsselwörtern 
von PowerBASIC. Der erste Wert enthält das Schlüsselwort, 
während der zweite Wert angibt, ob es sich um ein Funktion 
oder ein Schlüsselwort für einen Befehl handelt: 
Bsp.: URN ‚o '! Schlüsselwort 

"CHRS" ,„ 1 '! Basic-Funktion 
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453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





"ABS" 
"ARRAY!" 
"ASCII" 
"BERP' 
"BLOCK" 
NOBCD! 
NOFIX'" 
"CINT!" 
"CLOSE" 
COM! 
"CQUD" 
NOyB'! 
NOVI" 
"cygo" 
"DECLARE" , 
"DEFDBL" 
"DEFINT" 
"DEFSTR" 
"DIM" 
"DYNAMIC" 
"ENDMEM" 
"BQv" 
"ERDEVS" 
"EXECUTE" 
"RXP2' 
"FILEATTR", 
N" BOR!" 
"GET!" 
"HEXS" 
"INLINE" 
"INPUTS" 
"INSTR" 
"IOCTLS$S" 
"LCASES" 
"LINE" 
"LOCAL" 
"LOG" 
"LOGI0" 
"LPRINT" 
"MAX! 
"MIDS" 
"MKDIR" 
"MKFS" 
"MKMSS$" 
"MTIMER" 
"NAME! 
NORFF!" 
NOR' 
"PALETTE" 
"PEERS" 
"POINT" 
"POKES"" 
"PRINT#" 
"BUT" 
"READ" 


ooooooocoHocoHh-HcoHhHoHHocoHcoHocoHo0oOoHOoOoHOoOOOCOOOCOC HH HHOoOCOoHHOo0o0coH oh 
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"ABSOLUTE" ,O 
"ag" ‚0 
"ATN!" ‚1 
"BINS" Fat 
"BSAVE" ‚oO 
"CDBL" PB 
"CHAIN" ‚oO 
"CIRCLE" Fa 
NOLS" ‚0 
"COMMANDS" ,1 
"CSNG" Paib 
NOVD! 1: 
NOVL!" 1 
NOVS" rat 
"DECR" ‚oO 
"DEFEXT" ‚oO 
"DEFLNG" ‚oO 
"DELAY" RUF 
0 
0 
I 
T 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
I 
0 
0 





"DIR" ö 
"ELSE" f 
"ENVIRON" , 
"ERADR" ; 
" ERL " ? 
"EXIT" , 
"EXTERNAL" , 
"FILES" ; 
" FRE " h 
"GETS " ; 
" IF" ’ 
" INP " 5 
"INSERT"  , 
" INT " F 
" KRY' , 
"LEFT$" : 
"LIST" ; 
"LOCATE" , 





"LOG2" FRE 
"LSET" ‚oO 
N"MAXS' ‚ı 
"MIN" N 
I 
1 
I 





" MKBS " ; 
" MKI Ss " 5 
" MKOS " P 


"NEXT! ‚0, 
NON! ‚ı 
NOUT!" ‚0 
"PEEK" ‚oO 
"DEN! ‚0, 
" POKE" 0,7 
0 
0 
0 
0 


DB 
ı 


DB 


" POS" 7 
"BSET" ; 
" PUTS" ; 
"RECURSIVE", 


DB 


ı 


ı 


ı 


0 
NASC!" P I. 
"ATTRIB" ‚O0 
"BINARY" ‚0 
"CALL" p [6} 
"CEIL" P 1 
"CHDIR" ,0 
"CLEAR" ,0 
"COLOR" ,0 
"COMMON" ‚1, 
I 
1 
1 
0 
0 
0 
0 
0 
0 
0 








"CSRLIN" „| 
NOVE! j 
NOVMD'" s 
"DATA" R 
"DER!" F 
"DEFFIX" „| 
"DEFOQUD" , 
"DELETE" | 
"Do! F 
"ELSEIF" 


"ENVIRONS",1, 


"ERASE" ‚Do 
"ERR! 0% 
"EXP" ‚ı 


"EXTRACTS",O, 


"EIX" = 
"FREEFILE",O 
"GOSUB" ‚oO 
"INCR" ‚oO 
"INPUT" ‚oO 
"INSTAT" 0 
"INTERRUPT", 
"KILL" ‚oO 
"LEN" Pal 
"LLIST" ‚oO 
"LOCK'" ‚oO 


"LOOP" ‚Oo 
"LTRIM" Pal 
"MAXS "1 
"MIN?" Een, 
"MKDS" PraE 
"MKLS" ‚1 
"MKS$" ze 


" NOT " ; [6) 
"OPEN" ‚O0 
"OUTPUT" ,O 
"PEEKI" ,0 
"PLAY" ‚oO 
"POKEI" ,0, 
"PRESET" ,O 
"PUBLIC" ‚O0 
"RANDOM" ,O 
"REDIM" ,0 











"APPEND" ‚DO 
"ASCEND" ‚DO 
"BASE" ‚DO 
"BLOAD" ‚Do 
"CASE" ‚Do 
"CEXT" Pa 
"CHRS" ni 
"CLNG" Pat 
"COLLATE" ,O 
NOS" Pet 
"CURDIRS" ,O 
NOyF" a 
"CVMS"" 1 
"DATES" Pal 
"DEFBCD" ‚DO 
"DEFFLX" #0) 
"DEFSNG" ‚Do 
"DESCEND" ,O 
"DRAW" Er 
"END" ‚0 
"Bor! ‚0 
"ERDEV" ‚DO 
"ERROR" ‚Do 
"EXP10" Fa! 
"FIELD" ‚DO 
NEN" Aue) 
"FUNCTION",O 
"GOTO" ‚DO 
"INKEYS" ,0 
"INPUT#" ,O 
‚"IOCTL" ‚DO 
"LBOUND" ,0 
"LET" ‚0 
"LOC! ‚0 
"LOR!" ‚0 
"LPOS" Pa 
"MAP! 0 
"MEMSET" ‚DO 
"MINS" 21 
"MKES" Bi 
"MKMDS$S " Bl 
"MOD"! ‚0 
NOCTS" nt 
"OPTION" ‚Do 
"PAINT" ‚DO 
"PEEKL" ‚Do 
"PMAP'" ‚0 
"POKEL" ‚DO 
"PRINT" ‚Do 


"RANDOMIZE",O 
" REG " ; [6) 
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508 DATA "REM" ‚0, "REMOVE$S" ,1, "REPEAT$S",O, "REPLACE" ‚O0 
509 DATA "RESET" ‚0, "RESTORE" ,0, "RESUME" ‚,O, "RETURN" ,0 
510 DATA "RIGHTS" ‚1, "RMDIR" ‚0, "RND" ‚2, "ROUND" Pat 
511 DATA "RSET" ‚0, "RSET" ‚0, "RTRIM$" ‚1, "RUN" ‚oO 
512 DATA "SAVE" ‚0, "SCAN" ‚0, "SCREEN" ‚O0, "SEEK" ‚oO 
513 DATA "SEG" 0, "SELECT" ‚0, "SERVICE",O, "SGN" Pat 
514 DATA "SHARED" ,0, "SHELL" ‚0, "SIN" ‚1, "SORT" ‚Oo 
515 DATA "SOUND" ‚0, "SPACES" rl, SPE" ‚1, "SOR" ‚1 
516 DATA "STATIC" ‚1, "STEP" 0; "STICK". .,0,- "STOP" ‚oO 
517 DATA "STRS$" ‚1, "STRIG" ‚0, "STRING$S",O, "STRPTR" ,1 
518 DATA "STRSEG" ‚1, "SUB" ‚0, "SWAP" ‚Oo 

519 DATA "SYSTEM" ,0, "TAB" ‚0, "TALLY" ,1I, "TAN" Pa 
520 DATA "THEN" ‚Oo 

521 DATA "TIMES" ‚0, "TIMER" „0, TO" ‚0, "TROF" ‚oO 
522 DATA "TRON" ‚0, "UBOUND" ‚0, "UCASE$S" ‚1, "UNTIL" ‚oO 
523 DATA "UNTIL" ‚oO 

524 DATA "USING" ‚0, "USR" ‚0, "USRO" ‚0, "USR1" ‚oO 
525 DATA "USR2" ‚0, "USR3" ‚0, "USRA'" ‚0, "USRS" ‚Oo 
526 DATA "USRE" ‚0, "USR7" ‚0, "USR8E" ‚0, "USRY" ‚oO 
527 DATA "VAL" ‚1, "VARPTR" ‚0, "VARPTRS$S",O, "VARSEG" ,0 
528 DATA "VERIFY" ,1 

529 DATA "VIEW" ‚0, "WAIT" ‚0, "WEND" ‚0, "WHILE" ‚oO 
530 DATA "WIDTH" ‚0, "WINDOW" ‚0, "WRITE" ,0, "WRITE#" ,0 
531 DATA "XOR" 0 





Ixkkk* Programm Ende **+**** 


Listing 2.6: XREF.BAS 


XFORM: Formatierung von Quellprogrammen 


Die vorgestellten Lösungen zur Ausgabe von Listings (LISTER, SPOOL) 
sowie der Cross-Referenz-Generator bilden sicherlich die Basis für die 
Softwareentwicklung mit PowerBASIC. Allerdings stieß ich bei der 
Erstellung der Programme für das vorliegende Buch auf einen Mangel des 
Compilers, der mir bereits häufig bei anderen Sprachen aufgestoßen ist: 


Bei der Entwicklung der Programmablaufsteuerungen werden 
geschachtelte IF-Anweisungen oder Strukturelemente wie DO, WHILE etc. 
verwendet. Sofern diese Schachtelung nicht stimmt, d.h. auf jedes IF folgt 
in der Regel ein Abschluß mit END IF, tritt bei der Übersetzung eine 
Fehlermeldung auf. Allerdings zeigt der Compiler die Fehlermeldung in der 
Regel in einer Programmzeile, die mit Sicherheit nichts mehr mit dem 
fehlenden END IF zu tun hat. Dies ist erklärbar, wenn man sich die 
Arbeitsweise des Compilers vor Augen hält. In der Praxis führt ein solches 
Verhalten - insbesondere bei größeren oder komplexeren Programmen - zu 
einer aufwendigen Fehlersuche. Wer gewissenhaft arbeitet und die 
Schachtelungen jeweils optisch einrückt, kann hier zwar leichter durch die 
Strukturen durchfinden. Aber trotz dieser manuell durchgeführten 
Formatierung meiner Quelldateien trat bei PowerBASIC ein Problem auf, 
welches mich immer wieder nervt: 
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Die Syntax der Sprache definiert als Abschluß einer Struktur die 
Schlüsselwörter: 


END IF 
SUB END 


Da ich häufig in anderen Sprachen programmiere, schreibe ich 
gewohnheitsmäßig das Schlüsselwort: 


ENDIF 

PowerBASIC erkennt dies nicht als END IF und generiert vermutlich eine 
Variable (oder sonst etwas unsinniges). Bei der Übersetzung tritt eine 
Fehlermeldung an den unmöglichsten Stellen auf. Die Analyse des Listings 
ist dann sehr aufwendig, da ich gewohnheitsmäßig auf die Struktur der 
Einrückungen und auf die Anweisungen schaue. Das fehlende Leerzeichen 
wird dann leicht übersehen. 


Dies war schließlich der Grund, über ein Programm nachzudenken, 
welches die oben geschilderte Fehlersuche unterstützt. 


Die Spezifikation 
Zu Beginn steht wieder die Frage, welche Funktionalität benötigt wird? 


Das Programm soll eine PowerBASIC-Quelldatei einlesen, bearbeiten und 
wieder in eine zweite Datei speichern. Was soll aber während der 
Bearbeitung passieren? Nehmen wir an, Sie haben folgendes kleine 
Programm vorliegen: 


PRINT "Index ", i% 
NEXT i% 
END IF 


Die Anweisungen sind in Basic-Manier alle linksbündig aufgeführt. Zwar 
benötigt PowerBASIC keine Zeilennummern mehr, aber viele Basic- 
Programme sehen nach wie vor so aus. Während der Bearbeitung soll nun 
ein strukturiertes Listing entstehen. So sind alle Anweisungen, die 
innerhalb eines Blockes stehen, einzurücken: 


IF a% > b% THEN 
a% = a% * 20 
FOR i% = 1 TO 20 
b% = b% * 1% 
PRINT "Index ", 1% 
NEXT i% 
END IF 
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Das kleine Beispiel zeigt bereits, daß durch die Einrückung die Struktur 
wesentlich deutlicher zum Vorschein tritt. Insbesondere lassen sich die 
einzelnen Blöcke leicht identifizieren und ein Wechsel der 
Schachtelungstiefe ist einfach erkennbar. Zusätzlich erhalten Sie ein 
sauber strukturiertes Quellprogramm, welches für weitere Entwicklungen 
verwendbar ist. 


Was ist aber mit Programmen, die bereits von Hand mit diesen 
Einrückungen versehen sind? Die Programme in diesem Buch weisen zum 
Beispiel manuelle Einrückungen auf. Hier wäre es für den Fall der Fälle 
ebenfalls hilfreich, wenn die Quelldatei sich in der Struktur neu 
aufbereiten ließe. Bei der Bearbeitung müssen dann alle Einrückungen im 
Original entfernt und durch den Generator gemäß der Schachtelungstiefe 
neu formatiert werden. Nach der Implementierung des Programmes habe 
ich dies versucht und es funktioniert erstaunlich gut. 


Bezüglich der oben beschriebenen Problematik der falsch geschriebenen 
Anweisungen END IF reichte mir diese Funktionalität aber nicht aus. 
Wenn das Programm bereits die Einrückungen vornimmt, kennt es 
offensichtlich die Schachtelungstiefe. Für die Fehlersuche ist es daher 
hilfreich, wenn optional eine sogenannte Levelnummer vor jeder Zeile 
ausgegeben werden kann. 


0 IF a% > b% THEN 

1 a% = a% * 20 

1 FOR i% = 1 TO 20 

2 b% = b% * 1% 

2 PRINT "Index ", 1% 
1 NEXT i% 

0 END IF 


Das kleine Beispiel zeigt das Prinzip: Am Beginn der Einrückung wird die 
Levelnummer erhöht und am Ende des Blockes wieder erniedrigt. So ist 
sofort ersichtlich, wenn die Schachtelung nicht mit dem geplanten 
Programmzustand übereinstimmt. Da die Analyse der Zeilen einen Parser 
voraussetzt, muß diesem die eindeutige Schreibweise der Schlüsselwörter 
mitgeteilt werden. Das bedeutet andererseits, daß falsch geschriebene 
Wörter nicht als Basic-Schlüsselwörter erkannt werden. Dies macht sich 
dann in der Struktur und in der Levelnummer bemerkbar. 


Bezüglich der Aufrufschnittstellen wird die bei den anderen Programmen 
verwendete Technik benutzt. Wird das Programm mit der Eingabe: 


XFORM 
aktiviert, ist der Bildschirm zu löschen und die folgende Kopfmeldung 
auszugeben: 


XFORM (ce) Born Version 1.0 
Optionen [ /L Levelnummer einblenden ] 


Eingabedatei : 
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Ausgabedatei : 
Option 


Bild 2.16: Kopfmeldung des Programmes XFORM 


Als Dateiname dürfen gültige MS-DOS-Bezeichnungen einschließlich 
Laufwerks- und Pfadbezeichnungen verwendet werden. Quell- und 
Zieldatei dürfen jedoch keine identischen Namen aufweisen, sonst 
erscheint die Fehlermeldung: 


Eingabedatei = Ausgabedatei nicht erlaubt 


Auch sollte die Quelldatei gültige Basic-Anweisungen enthalten. Die 
Abfrage der »Optionen« erscheint erst nach Eingabe der Dateinamen. Wird 
der Schalter /L gesetzt, wird vor jeder Zeile die Levelnummer mit 
eingeblendet. 


Alternativ kann der Aufruf auch direkt von DOS erfolgen, wodurch eine 
Verwendung in Batchdateien möglich wird. Sobald Dateinamen in der 
Kommandozeile auftreten, übernimmt XFORM diese Namen und beginnt 
mit der Bearbeitung. Für diesen Aufruf gilt folgende Syntax: 


XFORM Quelldatei Zieldatei </L> 

Auf jeden Fall müssen zwei Dateinamen eingegeben werden, ansonsten 
erscheint eine Fehlermeldung: 

Der Name der Ausgabedatei fehlt 

Wird die Option /L gesetzt, schaltet XFORM die Generierung von 
Levelnummern ein. 


Als Randbedingung gilt, daß die Dateinamen immer zuerst einzugeben 
sind. Die Option muß durch mindestens ein Leerzeichen vom Dateinamen 
getrennt werden. Die folgenden Eingaben: 


XFORM XFORM.BAS XFORM.LEV 
XFORM XFORM.BAS XFORM.LEV /L 





stellen gültige Aufrufe des Programmes dar. 


Als letzter Punkt soll das Programm noch eine Online-Hilfe bieten. In 
Anlehnung an DOS 5.0 wird diese Online-Hilfe mit der folgenden Option 
aufgerufen: 


XFORM /? 


Dann muß auf dem Bildschirm folgender Hilfstext erscheinen: 


XFORM (ce) Born Version 1.0 
Aufruf: XFORM <Eingabefile> <Ausgabefile> </L> 


XFORM liest eine PowerBASIC Quelldatei ein und rückt die 
Anweisungen zwischen: 
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FOR NEXT 

DO LOOP 

WHILE WEND 

IF/THEN ELSEIF / END IF 
SUB END SUB 


ein. Dadurch entsteht ein formatiertes Listing, welches sich besser lesen 
läßt. Über die Option /L kann die Schachtelungstiefe jeder Zeile 
ausgegeben werden. Danach bricht das Programm ab und der DOS- 
Prompt erscheint wieder. 


Die Implementierung 


Das Programm ist zweckmäßigerweise in mehrere Module zu unterteilen, 
deren Zusammenschaltung in Bild 2.17 gezeigt wird. Insbesondere kann 
auf viele Techniken zurückgegriffen werden, die bereits aus den bisher 
vorgestellten Programmen stammen. Gerade die Analyse einer Zeile und 
Separierung eines Schlüsselwortes (token) wurde ausgiebig im Programm 
XREF genutzt. Daher werden diese Module in XFORM wieder auftauchen. 








settoken 

















Bild 2.17: Modulhierarchie des Programmes XFORM 
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Das Programm XFORM besitzt die oben gezeigte Modulstruktur. Aufbau 
und Funktion dieser Module sollen nun kurz beschrieben werden. 


Hauptprogramm 


Die Steuerung der Benutzereingaben sowie die Ablaufsteuerung 
übernimmt wie bisher das Modul main. Weiterhin sind in diesem Modul 
die Variablen zu definieren und zu initialisieren. Falls die Dateinamen in 
der Kommandozeile enthalten sind, müssen diese separiert werden. In 
diesem Fall ist auf die Ausgabe der Kopfmeldung zu verzichten. 
Andernfalls erscheint die Kopfmeldung und der Name der Dateien sowie 
die Optionen werden abgefragt. Durch die Angabe: 


ON ERROR GOSUB fehler 
werden mögliche Fehler abgefangen. Hierzu zählen auch nicht vorhandene 
Quelldateien. Mit der Schleife 


WHILE NOT (EOF (ein?)) 
LINE INPUT #ein%, linie$ 
CALL skiprem(1,1linie$,remflg%) 
lang% = LEN(linie$) 
IF (lang% > 0) AND (NOT remflg%) THEN 
CALL scanner (linie$) 





END IF 
IF (INSTR (UCASES$S (kommandos$) ,"/L") > 0) THEN 
PRINT #aus%, USING "## "; lev1%; 
lev1% = 1lev2% 
END IF 
PRINT #aus%, linie$ 
WEND 


wird die Datei zeilenweise gelesen und bearbeitet. Das Modul »skiprem« 
sorgt dafür, dass Kommentare überlesen werden. 


Hinweis: Die Implementierung erkennt Kommentarzzeilen zur Zeit nur, 
wenn sie direkt mit einem Kommentarzeichen eingeleitet werden. 


Alle Zeilen, die nicht leer oder als Kommentar erkennbar sind, werden 
anschließend durch den Scanner (siehe gleichnamiges Unterprogramm) 
bearbeitet. Hier erfolgt die Formatierung der jeweiligen Blöcke. Falls die 
Option /L gesetzt ist, gibt das Hauptprogramm noch den Levelcode als 
zweistellige Zahl vor jeder Zeile aus. Der Levelcode der aktuellen Zeile 
steht in lev1%. In lev2% findet sich der Levelcode der Folgezeile. Diese 
Konstruktion ist erforderlich, da bei der Ausgabe einer Zeile am 
Blockbeginn (z.B. IF ...) noch der alte Levelcode gültig ist, der Scanner 
aber bereits den Level für die Folgezeile verändert. Ist das Dateiende 
erreicht, wird die Schleife verlassen, die Dateien geschlossen und das 
Programm beendet. 


Die Hilfsmodule 


Als Hilfsmodule gelangen unter anderem Routinen aus dem Cross- 
Referenz-Generator zum Einsatz (skiprem, gettoken, skipstring). Die 
Tabellen mit den PowerBASIC-Schlüsselwörtern werden in XFORM nicht 
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genutzt. Es sind nur wenige Schlüsselwörter von Interesse, so daß die 
tokens direkt auf diese Schlüsselwörter abgeprüft werden. 


fehler 


Dieses Modul bildet den Fehlerausgang des Programmes LISTER. Es wird 
immer dann durch Basic aktiviert, falls Laufzeitfehler auftreten. 


getfile 


Das Unterprogramm getfile wird nur benutzt, falls Parameter in der 
Kommandozeile auftreten. Dann übernimmt das Modul die Separierung 
der beiden Bezeichnungen aus der Kommandozeile. Pro Aufruf wird ein 
Filename zurückgegeben. Der Parameter ptr% enthält einen Zeiger auf den 
Anfang des zu analysierenden Teilstrings. Der Dateiname muß durch das 
Zeilenende oder ein Leerzeichen abgeschlossen werden. 


Scanner 


Dieses Modul analysiert jede eingelesene Quellzeile auf Schlüsselwörter, 
die die Einrückungsstufe beeinflussen. Die Zerlegung der Eingabezeile in 
einzelne tokens erfolgt mit dem Modul gettoken. Für die einzelnen 
Schlüsselwörter gelten einige Besonderheiten, die ich nachfolgend kurz 
vorstellen möchte. 


FOR/ NEXT 


Wird als erstes das Schlüsselwort FOR erkannt, rückt das Programm die 
Folgezeile um n Zeichen ein. Die Zahl n ist zur Zeit durch die Variable 
indent% auf 2 festgelegt. Mit NEXT wird die Einrückung wieder erniedrigt. 
Die gegenwärtige Implementierung geht jedoch davon aus, daß die FOR 
..NEXT-Sequenz sich über mehrere Zeilen erstreckt. Sofern die NEXT- 
Anweisung in der FOR-Zeile steht, wird dies nicht erkannt. Bei Bedarf 
können Sie diese Eigenschaft aber nachrüsten. Es müssen lediglich alle 
tokens der Zeile auf das Schlüsselwort NEXT überprüft werden. Ein 
ähnliches Beispiel findet sich bei der Analyse der IF-Anweisung. 


DO/ LOOP, WHILE/ WEND 


Für diese Kombinationen von Schlüsselwörter gilt das gleiche wie für FOR 
.. NEXT. 


IF .. THEN .. ELSE, ELSEIF, END IF 


Bei der IF-Bedingung sind einige Besonderheiten zu beachten. Die 
Sequenz: 


IF .... THEN 

ELSE 

END IF 

führt zu einem bestimmten Einrückmuster. ELSE reduziert dabei die 
Schachtelungstiefe nur für die eigene Zeile. Das gleiche gilt für ELSEIF. 
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Bei END IF ist zu beachten, daß dieses Schlüsselwort sich aus zwei tokens 
zusammensetzt. Bei IF ist zusätzlich der Sonderfall zu beachten, daß sich 
die Anweisung auf eine Zeile beschränkt. Dann folgt keine END IF- 
Anweisung: 


IF a%$ > 0 THEN b% = 100 / a% 


Hier darf die Schachtelungstiefe nicht verändert werden. Sobald ein IF 
erkannt wurde, sucht das Modul die Zeile nach weiteren tokens ab. 
Enthält das letzte token den Text THEN, liegt eine mehrzeilige IF- 
Anweisung vor. Dann wird die folgende Zeile eingerückt. 


Der Sonderfall, daß eine IF-Anweisung nur eine Zeile umfassen soll, aber 
über ein Fortsetzungssymbol auf mehrere Teilzeilen aufgeteilt wurde, ist 
nicht implementiert: 


IF a% > b% _ 
and c% =0 _ 
and d% > 1 THEN a% = 0 


Hier geht die Bearbeitung durch XFORM schief. Falls Sie diese Form 
benutzen, sollten Sie XFORM erweitern. 


gettoken 


Diese Modul übernimmt die Zerlegung einer Zeile in einzelne tokens und 
stammt aus dem Programm XREF. Analoges gilt für skipblank und 
skiprem. 


Erweiterungsvorschläge 


Im Text wurde bereits auf einige Einschränkungen hingewiesen. So 
werden Kommentarzeilen nur erkannt, falls sie in der ersten Spalte 
beginnen. Weiterhin läßt sich die Bearbeitung der IF-Anweisungen 
verbessern. Analoges gilt für die WHILE- und FOR-Schleifen, die sich nur 
eine Zeile beziehen. 


Eine letzte Feinheit besteht in der Markierung der Schachtelungsebenen 
durch Linien: 


+-IF a% > b% THEN 
| as = 0 
+ END IF 


Dies ist nicht sonderlich schwierig, Sie müssen lediglich die Ausgabe von 
Leerzeichen durch die entsprechenden Sonderzeichen ersetzen. Diese 
Anderungen sind im Modul scanner auszuführen. 


REF /2=50 (ce) Born Version 1.0 
Datei : xform.bas Datum : 05-13-1992 Seite : 1 
Zeile Anweisung 
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11 
12 
13 


14 
1.0" 
15 
16 
17 
18 
19 
20 
21 
22 


TKKAKKKAKKKKHKKHTK KK KK HK KH KK HK HK KH KH KK KH KK KH KK KK KH KH TH KH KK TH KH KH KK KK AH HK KH KO 


'ı File : XFORM.BAS 

'ı Vers. 3 20 

'ı Last Edit : 2. 5.92 

'ı Autor : G. Born 

'ı Files : INPUT, OUTPUT 

'ı Progr. Spr.: PowerBASIC 2.x 

'ı Betr. Sys. : DOS 2.1 - 5.0 (+ DR-DOS 5.0/6.0) 


I 
'ı Funktion: Das Programm liest den PowerBASIC Quellcode 
"1 ein und rückt alle Anweisungen zwischen 
I 


"1 FOR NEXT 

"1 DO LOOP 

ei IF/THEN ELSEIF/END IF 
De SUB END SUB 

ı 

1 ein. 

L . 

'! Aufruf: XFORM Filenamel Filename2 /L 


vi wird das Programm ohne Parameter aufgerufen, 


"1 sind die Dateinamen explizit abzufragen. 
TARKKKKKKKK KK KK KK KK KK KK KK KK KK KK KH KK KK KK KK KK KK KK KK KK KK KK KK KK KH KH KU U 


| 
| 
| 
| 
| 
| 
| 
| 
" WHILE WEND 
| 
| 
| 
| 
| 
| 
| 
| 


'ı Variable und Konstanten definieren 
<%true = &HFFFF: %false = 0 


spalte% = 0 'ı 'ı Binrück. pro 
remflg% = false 'ı Kommentar gefunden 
lang% = 0 'ı Länge Zeile 

lev1% = 0 'ı Level 

lev2% = 0 
ein? = 1 'ı Dateinummer Eingabe 
aus% = 2 'ı Dateinummer Ausgabe 
ON ERROR GOTO fehler '! Fehlerausgang 
HH HHHHHHHHHHHHHHH HH HH HH HH HHHHHHHHEHHHEH 
'# Hauptprogramm # 
HH HH HH HH HH HH HH HHHHEHHHEH 
kommando$ = COMMANDS 'ı Parameter? 

IF LEN (kommando$) = 0 THEN 'ı User Mode? 

CLS 'ı clear Screen 

PRINT "X FORM (ce) Born Version 
PRINT 

INPUT "Eingabedatei: ",£ilenamel$ 

INPUT "Ausgabedatei: ",£ilename2$ 

INPUT "Option : ",kommando$ 

PRINT 
ELSE 'ı Kommando Mode 

ptr% = INSTR (kommando$,"/?") '! Option /? 

IF ptr% <> 0 THEN 'ı Hilfsbildschirm 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


95 


96 PowerBasic-Programmierhandbuch 

















23 PRINT "X FORM (ce) Born Version 1.0" 

24 PRINT 

25 PRINT "Aufruf: XFORM <Eingabefile> <Ausgabefile> </L>" 

26 PRINT 

27 PRINT "XFORM liest eine PowerBASIC Quelldatei ein und rückt 
die" 

28 PRINT "Anweisungen zwischen: 

29 PRINT 

30 PRINT " FOR NEXT" 

3E PRINT " DO LOOP" 

32 PRINT " WHILE WEND" 

33 PRINT " IF/THEN ELSEIF/END IF" 

34 PRINT " SUB END SUB" 

35 PRINT 

36 PRINT "ein. Dadurch entsteht ein formtierters Listing, 
welches sich" 

34 PRINT "besser lesen läßt. Über die Option /L kann die 
Schachtelung" 

38 PRINT "jeder Zeile ausgegeben werden." 

39 PRINT 

40 SYSTEM 

41 END IF 

'! separiere Bezeichnungen 

42 ptr® = 1 'ı Parameter holen 

43 CALL getfile(ptr%, kommando$, filenamel$) 'ı Name 
Eingabedateil 

44 INCR ptr% 

45 CALL getfile(ptr%, kommando$, filename2$) 'ı Name 
Ausgabedatei 

46 END IF 

47 IF £filenamel$ = "" THEN '! Leereingabe? 

48 PRINT "Der Name der Eingabedatei fehlt" 

49 END 

50 END IF 

51 IF filename2$ = "" THEN '! Leereingabe? 

52 PRINT "Der Name der Ausgabedatei fehlt" 

53 END 

54 END IF 

55 IF filenamel$ = filename2$ THEN 'ı gleiche Namen? 

56 PRINT "Eingabedatei = Ausgabedatei nicht erlaubt!" 

57 END 

58 END IF 

' prüfe ob Datei vorhanden, nein -> exit 

59 OPEN filenamel$ FOR INPUT AS #ein? 'ı Öffne Eingabedatei 

60 OPEN filename2$ FOR OUTPUT AS #aus?% 'ı Öffne Ausgabedatei 

61 PRINT 

62 PRINT "Die Datei: ";filenamel$;" wird bearbeitet" 
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63 WHILE NOT (EOF (ein%)) 'ı Datei sequentiell 
lesen 

64 LINE INPUT #ein?, linie$ 'ı lese Zeile 

65 CALL skiprem(1,linie$,remflg%) '! prüfe auf Kommentar 

66 lang% = LEN(linie$) '! ermittle Zeilenlänge 

67 IF (lang% > 0) AND (NOT remflg%) THEN '!! nur Anweisungen 

68 CALL scanner (linie$) '! analysiere Satz 

69 END IF 

70 IF (INSTR (UCASE$ (kommando$) ,"/L") > 0) THEN '! Level 

ausgeben 

71 PRINT #aus%, USING "## "; lev1%; 

72 lev1% = lev2% 

73 END IF 

74 PRINT #aus%, linie$ '! Satz speichern 

75 WEND 

76 CLOSE 'ı Dateien schließen 

77 PRINT 

78 PRINT "Die Datei: ";filename2$;" wurde erzeugt" 

79 END 
HH HHHHHHHHHHHHHHH HH HH HH HH HH HHHHEHHHEH 
'# Hilfsroutinen # 
HH HH HH HH HH HH HHHHHHHEHHHEH 

80 fehler: 
Mi a en a a FE ea 
'! Fehlerbehandlung in XFORM 
Ve a ad ae ae a a a N a a a a a a a a En a SE re he a a Ban BE a 

8l IF ERR = 53 THEN 

82 PRINT "Die Datei ";filenamel$;" existiert nicht" 

83 ELSE 

84 PRINT "Fehler : ";ERR;" unbekannt" 

85 PRINT "Erradr : ";ERADR 

86 PRINT "Programmabbruch" 

87 END IF 

88 END 'ı MSDOS Exit 

89 RETURN 

90 SUB getfile (ptr%,text$,result$) 


'! separiere Filename aus Eingabetext (text$) 


'!ı ptr% -> Anfang Filename, result$ = Filename 
!l----- ---------------- -- -- -- -- -- - - - - - - -- - - - - - - - - - - - - - - - - - - 
91 LOCAL tmp?%, i?%, zchn$ 
92 CALL skipblank (ptr%,text$) 'ı entferne Blanks 
93 tmp% = ptr?% '! Anfang Filename 
94 FOR i% = ptr?% to LEN(text$) 'ı suche Ende Filename 
95 zchn$ = MID$(text$,i%,1l) 
96 IF (zchn$ = " ") or (zchn$ = "/") THEN 
97 result$ = MID$ (text$,ptr%,i%-ptr%) 'ı Filename 
extrahieren 
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98 ptr% = i% 
99 EXIT SUB 
100 END IF 
101 tmp?% = i% 
102 NEXT i% 
103 IF (tmp% = ptr%) THEN 
104 PRINT "Fehler: kein Fileseparator" 'ı kein Endeseparator 
105 END 'ı Exit 
106 ELSE 
107 result$ = MID$ (text$,ptr%,tmp%-ptr%+1) '! Filename 
extrahieren 
108 ptr? = tmp% 
109 END IF 
110 END SUB 
111 SUB scanner (text$) 
I ! a EN a a en a a a a En a 
'! Scan Quellcode zeilenweise und rücke die Zeilen gegeben- 
'ı enfalls ein. Die Zeile wird in text$ zurückgegeben. 
IT s ze zu we zer ga 2a ara ssta steige ler arte 
112 LOCAL token%, tokentxt$, ptr?%, found, ptr1%, zchn$, tmp% 
113 SHARED lang%, spalte?%, indent?%, lev1%, 1lev2% 
114 ptr% = 1 'ı Start mit 1. 
Zeichen 
115 CALL skipblank (ptr?%,text$) 'ı Blanks 
entfernen 
116 ptr1% = ptr?% 
117 CALL gettoken (ptr%,text$,tokentxt$,token%) '! suche token 
118 IF token% THEN 
119 tokentxt$ = UCASES$ (tokentxt$) 'ı Großbuchstaben 
'ı bearbeite 1. Token und berechne Einrückung 
120 IF (tokentxt$ = "FOR") THEN 
121 text$ = SPACES$ (spalte%) + MID$ (text$,ptr1%, lang%) 
122 spalte% = spalte% + indent% 
123 lev2% = lev2% + 1 
124 ELSEIF (tokentxt$ = "DO") THEN 
125 text$ = SPACES$ (spalte%) + MID$ (text$,ptr1%, lang%) 
126 spalte% = spalte% + indent% 
127 lev2% = lev2% + 1 
128 ELSEIF (tokentxt$ = "WHILE") THEN 
129 text$ = SPACES$S (spalte%) + MID$ (text$,ptr1%, lang%) 
130 spalte% = spalte% + indent% 
131 lev2% = lev2% + 1 
132 ELSEIF (tokentxt$ = "SUB") THEN 
133 text$ = SPACES$ (spalte%) + MID$ (text$,ptr1%, lang%) 
134 spalte% = spalte% + indent% 
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135 lev2% = lev2% + 1 

136 ELSEIF (tokentxt$ = "IF") THEN 

137 text$ = SPACES$ (spalte%) + MID$ (text$,ptr1%, lang%) 

138 token?% = %true 

139 DO WHILE (token?%) '! prüfe, ob letztes Token = THEN 

140 CALL gettoken (ptr%,text$,tokentxt$,token%) '! suche token 

141 IF token% THEN oldtoken$ = UCASES (tokentxt$) 

142 LOOP 

143 IF oldtoken$ = "THEN" THEN 

144 spalte% = spalte% + indent% 

145 lev2% = lev2% + 1 

146 END IF 

147 ELSEIF (tokentxt$ = "ELSE") THEN 

148 tmp% = spalte% - indent? 

149 IF tmp% < 0 THEN tmp?% = 0 

150 text$ = SPACE$ (tmp?%) + MID$ (text$,ptr1%,lang%) 

151 IF lev2% > 0 THEN lev1% = lev2% - 1 

152 ELSEIF (tokentxt$ = "ELSEIF") THEN 

153 tmp% = spalte% - indent? 

154 IF lev2% > 0 THEN lev1% = lev2% - 1 

155 IF tmp% < 0 THEN tmp% = 0 

156 text$ = SPACE$ (tmp?) + MID$ (text$,ptr1?%, lang%) 

187 ELSEIF (tokentxt$ = "END") THEN '! END IF/ END 
SUB 

158 CALL gettoken (ptr%,text$,tokentxt$,token%) '! suche token 

159 IF token?% THEN 

160 tokentxt$ = UCASES$ (tokentxt$) nt 
Großbuchstaben 

161 IF (tokentxt$ = "IF") or (tokentxt$ = "SUB") THEN 

162 spalte% = spalte% - indent% 

163 IF spalte% < 0 THEN spalte% = O0 

164 IF lev2% > 0 THEN lev2% = lev2% - 1 

165 lev1% = lev2% 

166 END IF 

167 END IF 

168 text$ = SPACES$ (spalte%) + MID$ (text$,ptr1%, lang%) 

169 ELSEIF (tokentxt$ = "NEXT") THEN 

170 spalte% = spalte% - indent% 

1:71. IF spalte% < 0 THEN spalte% = 0 

172 text$ = SPACES$ (spalte%) + MID$ (text$,ptr1%, lang%) 

173 IF lev2% > 0 THEN lev2% = lev2% - 1 

174 lev1% = lev2% 

175 ELSEIF (tokentxt$ = "LOOP") THEN 

176 spalte% = spalte% - indent% 

177 IF spalte% < 0 THEN spalte% = 0 

178 text$ = SPACES$ (spalte%) + MID$ (text$,ptr1%, lang%) 

179 IF lev2% > 0 THEN lev2% = lev2% - 1 
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180 lev1% = lev2% 

181 ELSEIF (tokentxt$ = "WEND") THEN 

182 spalte% = spalte% - indent% 

183 IF spalte% < 0 THEN spalte% = O0 

184 text$ = SPACES$ (spalte%) + MID$ (text$,ptr1%, lang%) 
185 IF lev2% > 0 THEN lev2% = lev2% - 1 

186 lev1% = lev2% 

187 ELSE 

188 text$ = SPACES$ (spalte%) + MID$ (text$,ptr1%, lang%) 


189 END IF 
190 END IF 


191 END SUB 
192 SUB gettoken (ptr?%, text$,token$, found?) 
'ı durchsuche Zeile auf Variablennamen, found? = TRUE falls 


'! Variable gefunden. Der Name wird dann in token 


zurückgegeben. 
WMertsageneragsreesmiaaeeessaaeeereeeeameggee 


193 LOCAL first%, remflg%, search% 'ı ]Jokale Variablen 
194 SHARED lang% 'ı globale 
Variablen 


195 found? = %false 
gefunde 
n 
196 search? = %true 
197 lang% = LEN (text$) 


198 WHILE search? AND ptr% <= lang% 
Variablenanfang 

199 CALL skipblank (ptr%,text$) 
Blanks 

200 IF ptr% >= lang% THEN EXIT SUB 
Exit 


201 CALL skiprem (ptr%,text$,remflg%) 
202 IF remflg% THEN EXIT SUB 
fertig 


203 IF MID$(text$,ptr?%,1) = CHR$(34) THEN 
204 CALL skipstring (ptr%, text$) 

205 IF ptr% >= lang? THEN EXIT SUB 

206 END IF 


207 zchn$ = UCASE$ (MID$ (text$,ptr?,1)) 
separieren 

208 IF ((zchn$ < "A") OR (zchn$ > "Z")) 
Name 


init Flag nicht 


init Flag 


suche 


skip führende 


Zeilenende -> 


Kommentar? 
ja -> Zeile 


String ".a..12 
skip string 
Ende -> Exit 


Zeichen 


Suche Anfang 
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209 
210 
211 
212 
213 
214 


215 
216 
-> Exi 


217 


218 
token 
219 


220 
Variab 
221 
separi 
222 
223 
224 
225 
226 
wg. Fe 


227 
nicht 


228 
229 
230 
231 


232 
233 


234 


235 


236 


237 
238 
239 
240 


AND (INSTR("$&%",zchn$) = 0) THEN u! " 
INCR ptr% 'ı nein -> next 
ELSE 
search? = false 'ı ja -> exit 
END IF 
WEND 
IF search? THEN '! gefunden? 
EXIT SUB '! nein, Zeilenende 
t 
END IF 
'ı ### Anfang eines Tokens gefunden #### 
first? = ptr? '! merke Anfang 
search? = true 'ı init Flag 
WHILE search? AND ptr% <= lang% '! suche 
lenende 
zchn$ = UCASE$ (MID$ (text$,ptr?,1)) '! Zeichen 
eren 
IF (zchn$ < "A") OR (zchn$ > "Z") THEN 'ı Ende Name? 
IF (zchn$ < "0") OR (zchn$ > "9") THEN 
IF INSTR("$%&!#",zchn$) = 0 THEN 
search? = %false '! gefunden 
DECR ptr% 'ı korrigiere ptr% 
h 
ler 
END IF 'ı da EXIT WHILE 
geh 
a) 
END IF 
END IF 
INCR ptr% 'ı nein -> next 
WEND 
found% = %true '! gefunden ! 
token$ = MID$ (text$, first?%, (ptr%-first?%)) '! get token 
END SUB 
SUB skipblank (ptr?%,text$) 





'ı zähle führende Blanks in einer Zeichenkett 
'!l text$ = Zeichenkette, zeiger% = Zeiger in Kette 


SHARED lang% 


WHILE (ptr% =< lang%) and (MID$ (text$,ptr%,1) = "") 
INCR ptr% 

WEND 

END SUB 
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241 


diesem 





251 
entfer 
252 


253 
254 
255 
256 
257 
258 
259 
260 
261 
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SUB skipstring (ptr%,text$) 


'ı Es wird geprüft, ob ptr% auf ein " im Text zeigt. In 


'ı Falls liegt ein String "...." vor, dessen Ende (") gesucht 
'ı wird. ptr% zeigt nach dem Ablauf auf das Zeichen hinter ". 
'!l text$ = Zeichenkette mit Anweisung 


SHARED lang% 


IF MID$S (text$,ptr?%,1) <> CHR$(34) THEN 


EXIT SUB 'ı kein String "..." 
END IF 
DO '! suche Ende String 
INCR ptr% 'ı next char 
LOOP UNTIL (MID$ (text$,ptr%,1) = CHR$(34)) OR (ptr% >= lang?) 
END SUB 


SUB skiprem (ptr%,text$, flag%) 


'ı prüfe auf Kommentare, text$ = String mit Anweisung 
'ı ptr% = Zeiger in Text, flag% = true -> Kommentar gefunden 


CALL skipblank (ptr?%,text$) ! führende blanks 


nen 
IF INSTR (text$, "REM") = ptr% THEN '! scan Anfang = REM oder 
flag% = true '! Kommentar 
ELSE 
IF MID$ (text$,ptr?,1) = "'" THEN 
flag% = $true '! Kommentar 
ELSE 
flag% = false 'ı kein Kommentar 
END IF 
END IF 
END SUB 


Ixkkk* Programm Ende **+**** 


Listing 2.7: XFORM.BAS 
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3 Werkzeuge zur Behandlung von Textdateien 


Bei der Bearbeitung von Textdateien und Programmen treten immer 
wieder die gleichen Aufgabenstellungen auf. Oft ist der Inhalt der Datei 
nach bestimmten Kriterien auszuwerten oder bestimmte Dateien sollen 
kombiniert werden. Die Benutzer von Unix erhalten hier durch das 
Betriebssystem reichhaltige Unterstützung. Aber unter MS-DOS ist in der 
Beziehung (abgesehen von Programmen wie MORE, COMP, SORT) nichts 
zu finden. Aus diesem Grund werden nachfolgend einige kleine 
Hilfsprogramme erstellt, die hier Unterstützung bieten. Das Programm 
LISTER.BAS paßt ebenfalls in dieses Kapitel, da es sich zur Bearbeitung 
von Texten eignet. Nun werden noch einige ergänzende Utilities vorgestellt. 


WC: Auswertung von Textdateien 


Bei der Erstellung von Textdateien werden manchmal Informationen über 
den Dateiinhalt benötigt. Auch ein Quellprogramm ist in der Regel nichts 
anderes als eine spezielle Textdatei. Der Dateiinhalt läßt sich nun im 
Hinblick auf folgende Fragestellungen analysieren: 


e Wieviele Textzeichen sind in der Datei vorhanden? 
e Wieviele Wörter enthält der Text? 
e Wieviele Zeilen enthält der Text? 


Insbesondere der letzte Punkt tritt häufig auf, wenn nach den »Lines of 
Code« eines Programms gefragt wird. Das Programm ist recht kurz und 
liefert diese Information. 


Die Benutzerschnittstelle ermöglicht verschiedene Varianten der 
Aktivierung. Nach dem Programmstart mit dem Befehl: 


wc 
erscheint folgende Meldung: 


wc (ce) Born Version 1.0 


auf dem Bildschirm. Mit »File :« wird ein gültiger MS-DOS-Dateiname 
abgefragt, der auch Laufwerks- und Pfadangaben enthalten darf. 
Alternativ läßt sich der Dateiname direkt beim Programmstart in der 
Kommandozeile mit angegeben. Dann gilt die Syntax: 


WC Filename 
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Hier kann dann auf die Anzeige des Programmkopfes verzichtet werden. 


Existiert die angegebene Datei nicht, bricht das Programm mit folgender 
Meldung: 


File nicht vorhanden 
Andernfalls erscheint der Hinweis: 


Datei <filename> wird bearbeitet 
»filename« steht für den eingegebenen Dateinamen. Nach der Analyse 
erscheinen die Ergebnisse in folgnder Form: 


Zeichen : 3698 
wörter ı 382 
Zeilen 7 


Leerzeilen : 14 


auf dem Bildschirm. Neben der Zeilenzahl wird auch der Anteil an 
Leerzeilen in diesem Text mit ausgegeben. Obige Daten geben zum Beispiel 
die Auswertung der Datei WC.BAS wieder. 


Über den Aufruf: 
wc /? 


steht die Online-Hilfe zur Verfügung. Das Programm gibt dann einen 
Textbildschirm aus. 


wc (ce) Born Version 1.0 
Aufruf: WC <Filename> 


Das Programm analysiert die Textdatei und gibt die Anzahl der Zeichen, 
Wörter und Zeilen aus. 


Die Implementierung 


Die Implementierung ist recht einfach. Das Programm besteht zunächst 
aus einem Hauptprogramm zur Variableninitialisierung und zur 
Dateibehandlung. In einer WHILE-Schleife wird die Textdatei satzweise mit 
LINE INPUT bearbeitet. Am Programmende wird die Datei geschlossen und 
die Ergebnisse werden am Bildschirm angezeigt. Das Strichdiagramm in 
Bild 3.1 zeigt den Ablauf. 
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Variablen definieren und initialisieren 
Eröffnungsmeldung 
Dateiname einlesen 


Datei öffnen (vorhanden)? 
N J 
. Programmabbruch mit Fehlermeldung 


WHILE Dateiende (EOF) nicht erreicht 
lese eine Zeile 


Zeilenzähler und Zeichenzähler erhöhen 


U Zahl der Worte bestimmen. { getword } 


WHILE Ende 
Datei schließen 
Ergebnisse ausgeben 


Programm-Ende 


Bild 3.1: Programmablauf in WC.BAS 


Nach der Ausgabe der Kopfmeldung wird der Name der auszugebenden 
Datei in die Stringvariable filename$ eingelesen. Hierbei sind neben 
Laufwerksangaben auch Pfadbezeichnungen vor dem Dateinamen erlaubt. 
Auf die restlichen Einzelheiten wird nicht eingegangen, da diese im Prinzip 
bereits bei der Entwicklung des Programmes LISTER.BAS diskutiert 
wurden. 


getword 


Neben dem Modul »fehler« wird nur ein Unterprogramm benutzt. Aufgabe 
dieses Moduls ist es, die Zahl der Wörter innerhalb einer Zeile zu ermitteln 
un in der Variablen worte% zu addieren. Als Wörter gelten hier alle 
Zeichenketten, die mehr als ein Zeichen enthalten. Wörter, werden durch 
Leerzeichen, oder durch das Zeilenende, getrennt. Leerzeilen werden 
ignoriert. 


Die Einzelheiten sind nachfolgendem Listing zu entnehmen. 


Erweiterungsvorschläge 


Die Separation der Wörter beschränkt sich darauf, Zeichenketten mit 
mehr als einem Zeichen zu ermitteln. Für die Auswertung von Textdateien 
interessieren vielleicht aber nur wirkliche Wörter. Hier kann der 
Algorithmus so verfeinert werden, daß er nur noch Wörter der deutschen 
Sprache, einschließlich Umlaute, erkennt. Weiterhin können Leerzeilen bei 
der Berechnung der Zeilenzahl ignoriert werden. Als letzte Verbesserung 
besteht die Möglichkeit, daß Programm mit einer Endlosschleife zu 
versehen, die nach der Auswertung einer Datei wieder an den 
Programmanfang geht und einen weiteren Dateinamen abfragt. Nur bei 
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Leereingaben wird dann das Programm verlassen. Diese Erweiterung kann 
auch bei vielen anderen in diesem Buch vorgestellten Modulen benutzt 





werden. 
XREF /2=50 (ce) Born Version 1.0 
Datei wc.bas Datum : 05-16-1992 Seite : 1 
Zeile Anweisung 
1 AAKKKKKAKKKKKKKAKKHKKK KK KK KK HK KH KH TH KH KHK KH KK TH KK TH KK TH KK AK KK KH TK AH KK KH A KH A KH KU &U 
' File : WC.BAS 
'ı Vers. & 20 
' Last Edit 27 75,92 
' Autor : G. Born 
' Files : INPUT 
' Progr. Spr.: PowerBASIC 
' Betr. Sys. : MS-DOS 2.1 - 5.0 
' Funktion: Das Programm untersucht einen Textfile und 
' gibt die Zahl der Zeichen, Wörter und Zeilen 
! aus. Ein Wort wird nur gezählt, falls es mehr 
1 als einen Buchstaben enthält. Trennzeichen 
' zwischen Wörtern sind Leerzeichen. 
1 AAKKKKKAKKKKAKKHKKKTKK KK KK KK KH HK KH TH KH KH KH KH KH KH KK KH TH KH KK KH AH KK KH TK AK KK KH AK KH AH KK A KO 
' screens und Variable definieren 
1 zeileg& = O0 '! Zeilen im Text 
2 worte& = 0 '! worte im Text 
3 char& = 0 '! Zeichen im Text 
4 leerz& = 0 '! Leerzeilen 
5 ein? = 3 '! 1I/O Kanal 
6 linie$ = "" 'ı Textpuffer 
7 lang% = 0 '! Zeilenlänge 
8 ptrz = 0 


ı 


ı 


HH HRHHHHRHH HH HH HH HH HH HH HH HFHH HEHE HHEH 
# Hauptprogramm # 
HH HRHHHHHHH HH HH HH HH HH RHHH HH HEHE HH HE HHEH 


9 ON ERROR GOTO fehler 

10 kommando$ = COMMANDS 'ı Parameter ? 

11 IF LEN (kommando$) = 0 THEN 'ı User Mode ? 

12 CLS 'ı clear Screen 

13 PRINT "WC (ce) Born Version 1.0" 

14 PRINT 

15 INPUT "File : ",filename$ 

16 PRINT 

17 ELSE 

18 ptr% = INSTR (kommando$,"/?") '! Option /? 

19 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 

20 PRINT "WC (ce) Born Version 1.0" 

21 PRINT 

22 PRINT "Aufruf: WC <Filename>" 

23 PRINT 

24 PRINT "Das Programm analysiert die Textdatei und gibt die 
Zahl" 
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25 
26 
27 
28 
29 
30 
34 





53 


54 
55 
56 
57 
58 
59 
60 
61 


PRINT "der Zeichen, Wörter und Zeilen aus." 

PRINT 

SYSTEM 

END IF 
III] 'ı Kommando Mode 

filename$ = kommando$ '! nur Filename 
END IF 
' prüfe ob Datei vorhanden, nein -> exit 
OPEN filename$ FOR INPUT AS #ein% 'ı File öffnen 
PRINT "Datei ";filename$;" wird bearbeitet" 


WHILE NOT (EOF (ein?)) '! Datei sequentiell 
LINE INPUT #ein%, linie$ 'ı lese Zeile 

lang% = LEN (linie$) '! Zeichen / Zeile 
char& = char& + lang% 'l count chars 

INCR zeile& '! count lines 

IF lang% <= 0 THEN 

INCR leerz& 'ı Zahl der Leerzeilen 
ELSE 

GOSUB getword '!l count words 

END IF 
WEND 
CLOSE #ein% 'ı close datei 
PRINT 
PRINT "Zeichen :", char& 
PRINT "Wörter :", worte& 
PRINT "Zeilen :", zeile& 
PRINT "Leerzeilen :", leerz& 
PRINT 
END 
HH HH HH HH HH HH HH HHHHEHHHEH 
'# Hilfsroutinen # 
HH HH HH HH HH HH HHHHHHHEHHHEH 
fehler: 
| EEE EREENERTE EEE SEN EINE ES LER EEE EEE ER EUER EN EER RES EEEEET EIRE ERREGER NEE NER 
'ı Fehlerbehandlung in WC 
Se a a ae a a a u a a ee u Ka Day a et Da aa ka a eng NE a ae re a es Sa A aa an a ep Ei 
IF ERR = 53 THEN 


PRINT "Die Datei ";filename$;" existiert nicht" 


PRINT "Fehler : ";ERR;" unbekannt" 
PRINT "Programmabbruch"" 


END '! MSDOS Exit 
RETURN 
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62 getword: 


63 zahl& = O0 'ı init char count 
64 FOR i%= 1 TO lang% 'l scan line 

65 zchn$ = MID$ (linie$,i%,1l) '! separate char 

66 IF zchn$ <> " " THEN 

67 INCR zahl& 'ı zähle Buchstaben 
68 ELSE 

69 IF zahl& > 1 THEN INCR worte& '! count words 

70 zahl& = 0 'ı clear char count 


71 END IF 
72 NEXT i% 
73 IF zahl& > 1 THEN INCR worte& ! 
74 RETURN 
' ###### Programm Ende ##H#H####HH#H# 


Listing 3.1: WC.BAS 


letztes Wort zählen 


CUT: Ein Filter für Textdateien 


Bei Textdateien, insbesondere mit Tabellen, sollen öfters bestimmte 
Spalten entfernt werden. Bei umfangreichen Texten ist nur eine 
automatische Bearbeitung sinnvoll. Ein Editor hilft hier nicht weiter, da er 
zeilenorientiert arbeitet. Also bleibt nur die manuelle Bearbeitung, Zeichen 
für Zeichen. Es stellt sich die Frage, ob diese Aufgabe nicht wesentlich 
einfacher durch ein Programm zu erledigen ist. 


Ausgehend von der Unix-Utility CUT entstand ein solches Programm, 
welches einige dieser Funktionen übernimmt. 


Die Spezifikation 


Beginnen wir zuerst mit der Spezifikation der Anforderungen. Das Modul 
soll zwar Textdateien zeilenorientiert bearbeiten. Aufgabe ist es jedoch, 
spaltenweise bestimmte Zeichen auszufiltern und den Restsatz in eine 
Ausgabedatei zu übertragen. Diese Aufgabenstellung tritt zum Beispiel bei 
Tabelle 3.1 auf. 


o Artikel Nr.ePreis (Euro) eRabatt 
. 4711 o 5,70 . 30 - 50 o 
o er o i eo N o 
. 1743 . 3,80 . 22 . 


Tabelle 3.1: Beispiel einer Tabelle mit feldorientiertem Aufbau 
Diese enthält neben der Artikelnummer und dem Preis auch die 


Rabattspanne die jeweils eingeräumt werden kann. Wird nun diese Tabelle 
gedruckt, ist es nicht immer erwünscht, wenn die Rabattsätze auftauchen. 
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Nach der herkömmlichen Methode werden also jeweils zwei Listen erstellt 
und gepflegt. Dies ist zeitraubend und fehlerträchtig. Schaltet man nun 
das Programm CUT vor die Ausgabe, läßt sich die Rabattspalte leicht 
entfernen. Damit erscheint nur noch der gewünschte Text. 


Ein ähnliches Problem tritt auf, wenn aus einer Adreßdatei mit Name, 
Anschrift und Telefonnummer die Adresse entfernt werden soll. Die 
Einträge sind gemäß nachfolgender Darstellung spaltenweise geordnet, 
wobei die Einträge durch Doppelpunkte getrennt sind. 


Name Adresse Telefonnummer 


Müller, Udo : 6000 Frankfurt Wiesenstraße 18 : 069 - 12345 
Dr. Post, Josef : 8000 München 1 Schillerstraße 23 : 089 1007 
Heinz Peter : 6230 Frankfurt (M) 80 Königstr. 1 : 069 - 33456 


Hier besteht nun die Schwierigkeit, daß keine genaue Spalte angegeben 
werden kann, ab der der Text zu entfernen ist. Da aber die einzelnen 
Felder durch ein Trennzeichen (hier ein »:«) markiert sind, kann ein 
anderes Verfahren angewandt werden. Es wird das Trennzeichen sowie die 
Nummer des zu entfernenden Feldes spezifiziert. Mit der Feldnummer 2 
lässt dich die Adresse entfernen, wodurch nur noch Name und 
Telefonnummer in der Ausgabedatei stehen. Damit sit bereits obige 
Forderung erfüllt. Sind mehrere Felder zu entfernen, ist CUT mehrmals 
aufzurufen. 


Nun wollen wir mit der Beschreibung der Ein-/Ausgabemeldungen 
beginnen. Hier gibt es wieder die zwei Alternativen zur Übergabe der 
Parameter: den Kommandomodus und den interaktiven Eingabemodus. 
Wird nun der Name CUT ohne weitere Parameter eingegeben, dann 
verzweigt das Programm in den interaktiven Eingabemodus. Auf dem 
Bildschirm erscheint folgende Meldung: 


CU. T (ce) Born Version 1.0 

Optionen : [ /F=xx Feld Nr. /D=: Delimiter ] 
[ /S=xx Skip n Lines /P=xx Process n Lines ] 
[ /=Cx1-x2 Column x1 bis x2 /T Trace ON ] 

Eingabedatei : 

Ausgabedatei : 

Optionen 


Bild 3.2: Kopfmeldung von CUT im Eingabemodus 


Mit »Eingabedatei« wird ein gültiger MS-DOS Dateiname, der auch 
Laufwerks- und Pfadangaben enthalten darf, abgefragt. Exisitiert die 
angegebene Datei nicht, bricht das Programm mit einer Fehlermeldung ab 
(Tabelle 3.2): 


Die Datei <name> existiert nicht 
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Mit <name> wird hier die eingegebene Datei bezeichnet. Andernfalls 
erscheint die folgende Abfrage am Bildschirm: 


Ausgabedatei : ..... 


Existiert die Datei bereits, erfolgt eine Warnung: 

Die Ausgabedatei existiert bereits, überschreiben (J/N) ? 

die explizit bestätigt werden muß. Nur durch die Eingabe »J« oder »j« wird 
die Bearbeitung fortgesetzt und die Abfrage der Optionen erscheint: 


Optionen : 


Es muß nun entweder die Feld- (/F) oder die Column-Option (/C) korrekt 
eingegeben werden. Ist dies nicht der Fall, erscheinen die 
Fehlermeldungen (Tabelle 3.2): 


Die Optionen fehlen oder sind falsch 
Dann ist das Programm erneut zu starten. 


Für den Einsatz in Batchdateien besteht die Möglichkeit der 
Parameterübergabe innerhalb der Kommandozeile. In diesem Fall besitzt 
der Aufruf folgende Struktur: 


CUT <Eingabedatei> <Ausgabedatei> <Optionen> 


Wichtig ist hierbei, daß alle drei Eingabeparameter innerhalb der 
Kommandozeile auftauchen. Im Kommandomodus erfolgt ebenfalls eine 
Warnung, falls die Ausgabedatei bereits existiert. 


Fehlt die Eingabe in einem Datei- oder Optionsfeld, wird unabhängig vom 
Kommando- oder Interaktiv-Modus der Programmablauf mit einer 
Fehlermeldung (Tabelle 3.2) abgebrochen. 


Über die Option: 
cuT /? 


läßt sich der Bildschirm mit der Online-Hilfe abrufen. 


Die Optionen 


Nun wollen wir uns noch etwas genauer mit den Optionseingaben 
beschäftigen. 


Die Feld-Option /F 


Die Feld-Option erlaubt es, ein komplettes Feld zu entfernen. Daher muß 
die laufende Nummer des Feldes sowie das Trennzeichen (Delimiter) 
zwischen den Feldern angegeben werden. Es sind z.B. folgende Eingaben 
möglich: 

/F=2 /Ds=: 

/D=; /F=2 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


PowerBasic-Programmierhandbuch 111 


In diesem Fall wird das zweite Feld entfernt, wobei die Felder durch einen 
Doppelpunkt oder ein Semikolon getrennt sind. Wird das Trennzeichen 
(z.B. /D=:) bei Verwendung der /F-Option nicht angegeben, erfolgt ein 
Programmabbruch mit einer Fehlermeldung: 


Option /D fehlt 


Obiges Format ist bei der Eingabe einzuhalten. Bei der /F-Option ist in 
jedem Fall auch das Trennzeichen mit /D zu definieren. Falls die Column- 
Option nicht verwendet wird, ist die Feld-Option zwingend vorgeschrieben. 


Die Column-Option /C 


Befinden sich die zu entfernenden Zeichen an festen Positionen innerhalb 
einer Zeile, läßt sich die Column-Option verwenden. 


/C=x1-x2 


Mit x1 wird dabei die Anfangsspalte angegeben, ab der die Zeichen zu 
entfernen sind. Die Variable x2 spezifiziert die Spalte, bis zu der die 
Zeichen noch entfernt werden. Nachfolgend sind einige gültige Eingaben 
aufgeführt: 


/C=3-10 entferne Zeichen ab Spalte 3 bis Spalte 10 
/C=5 entferne alle Zeichen ab Spalte 5 
/C=-12 entferne alle Zeichen bis Spalte 12 


Es werden alle Zeichen, einschließlich der jeweils spezifizierten Spalten 
entfernt. 


Ist der Wert der Anfangsspalte kleiner als der Wert der Endspalte, bricht 
das Programm mit einer Fehlermeldung ab: 

Fehler bei /C= Ende < Anfang 
Falls die Feld-Option nicht verwendet wird, ist die Column-Option 
zwingend vorgeschrieben. Sonst bricht das Programm mit einer 
Fehlermeldung ab. 
Die Skip Line-Option /S 


Oft ist es so, daß die zu bearbeitende Tabelle in einen Text integriert ist. 
Dieser Text darf natürlich nicht bearbeitet werden. Hierfür dient die 
Option Skip Line. Durch die Eingabe: 


/S=20 


werden die ersten 20 Zeilen innerhalb der Textdatei überlesen und 
unbearbeitet in die Ausgabedatei gespeichert. Diese Option ist nicht 
zwingend vorgeschrieben. Falls sie fehlt, beginnt die Bearbeitung der Datei 
ab der ersten Zeile. 


Die Process-Line Option /P 


Diese Option ergänzt die Skip Line-Option. Der Text vor der Tabelle läßt 
sich durch die /S-Option überlesen. Schließt sich an die Tabelle weiterer 
Text an, darf dieser natürlich nicht bearbeitet werden. Mit der Eingabe: 
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/P=15 


wird dem Programm CUT signalisiert, daß nur 15 Zeilen innerhalb der 
Datei zu bearbeiten sind. Fehlt die /S-Option, sind dies die ersten 15 
Zeilen der Datei. Sonst werden xx-Zeilen überlesen (S=xx) und 
anschließend sind die folgenden 15 Zeilen zu bearbeiten. Dann wird der 
Rest der Datei unmodifiziert ausgegeben. Die /P-Option ist nicht zwingend 
vorgeschrieben. 


Mit dieser Technik läßt sich eine Tabelle innerhalb eines Textes selektiv 
bearbeiten. Bei mehreren Tabellen im Text ist CUT mehrmals aufzurufen, 
wobei pro Durchlauf jeweils eine Tabelle bearbeitet wird. 


Die Trace-Option /T 


Wird der Schalter /T gesetzt, erscheinen alle Zeilen, die in die 
Ausgabedatei abgespeichert werden, auch auf dem Bildschirm. Diese 
Option ist standardmäßig ausgeschaltet, um die Anzeige zu unterdrücken. 
Waren die Eingaben korrekt, meldet sich das Programm mit: 


CUT Start 


Falls der Trace-Mode eingeschaltet ist, wird anschließend der Inhalt der 
bearbeiteten Datei satzweise auf dem Bildschirm ausgegeben. Die erste 
Zeile enthält den Originalsatz, während die zweite Zeile die korrigierte 
Fassung zeigt. Leere Sätze werden übergangen. Findet sich kein Separator 
oder kein entsprechendes Feld, erscheinen auch bei ausgeschalteten 
Trace-Mode die Meldungen: 


kein Separator 
Feld Nr. .. fehlt 


Der Satz wird dann unbearbeitet abgespeichert. Am Dateiende erfolgt eine 
Abschlußmeldung: 


CUT Ende 


Damit liegt das Ergebnis in der spezifizierten Ausgabedatei vor. 


Die Fehlermeldungen 


Da das Programm eine Reihe von Fehlermeldungen ausgibt, werden diese 
nachfolgend zusammengefaßt. 


Meldung: Der Name der <....datei> fehlt 


gabedatei. Dies kann insbesondere beim 


Ursache: Es fehlt der Name einer Ein- oder Aus- 
Kommandomodus auftreten. 


Meldung: Die Optionen fehlen oder sind falsch 


| Ursache: Die Eingabe ist zwingend erforderlich. 
| Das Eingabeformat muß eingehalten wer- 
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Meldung: Die Datei <name> existiert nicht 





Ursache: Im eingegebenen Verzeichnis wurde die 
Eingabedatei nicht gefunden. 


| Meldung: Fehler : <Nummer> unbekannt 





Ursache: Laufzeitfehler PowerBASIC. Die Nummer 
gibt die Fehlerart an (PowerBASIC 
Dokumentation). 


Meldung: Fehler : Options /C oder /F fehlen 


Ursache: Es wurde keine gültige Column- oder 
Feldoption gefunden. 


| Meldung: Option /D fehlt 


| Ursache: Es wurde eine Feld Option eingegeben 
| und keine gültige /D Option gefunden. 


| Meldung: kein Separator 


Ursache: Die eingelesene Zeile enthält kein 
Separatorzeichen, der Satz wird kom- 
| plette in die Ausgabe übernommen. 


| Meldung: Feld <nummer> nicht gefunden 


Ursache: In der /F Option wurde ein Wert ange- 
geben, der größer ist als die Zahl der 
| Felder in der Eingabezeile. 


| Meldung: Fehler : kein Fileseparator 


Ursache: In der Kommandozeile fehlen die Blanks 
zwischen den Dateinamen, oder es wurden 
| keine Optionen eingegeben. 


| Meldung: Fehler bei /C= Ende < Anfang 


Ursache: Bei der /C Option ist der Wert der 
Endespalte kleiner als der Wert der 
Anfangsspalte. 


Tabelle 3.2: Fehlermeldungen des Programmes CUT 


Die obigen Fehler führen zu einem Programmabbruch, während nach 
Warnungen (z.B. kein Separator) der Ablauf fortgesetzt wird. 
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Die Implementierung von CUT 


Die Implementierung ist recht einfach. Das Programm besteht wieder aus 
mehreren Modulen, die im folgenden Hierarchiediagramm (Bild 3.3) 


aufgeführt sind. 





getfile skipblank 





getswitcch p > getval 





main column 


| fieldx 
ner | 


Das Hauptprogramm dient zur Variableninitialisierung und zur 
Dateibehandlung. In einer WHILE-Schleife wird die Textdatei satzweise mit 




















Bild 3.3: Modulhierarchie in CUT.BAS 
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LINE INPUT gelesen und über die Unterprogramme fieldx und column 
bearbeitet. Am Programmende wird die Datei geschlossen und die 
Endemeldung erscheint auf dem Bildschirm. Das Strichdiagramm in Bild 
3.4 zeigt den Ablauf. 


Variablen definieren und initialisierer 


Eröffnungsmel dung 


Dateinamen und Options einlesen (Interaktiv-Modus) 
Dateinamen vorhanden ? 
Programmabbruch mit Fehlermeldung, oder Abfrage 


Dateien öffnen 

Skip n Sätze 

WHILE NOT (EOF) & NOT Process line erreicht 
lese eine Zeile 


Zeile anzeigen 





Zeile auswerten (column oder field) 
Zeile in Ausgabedatei und anzeigen 
WHILE Ende 


restliche Sätze in Ausgabedatei 
Datei schließen 


Programm-Ende 


Bild 3.4: Programmablauf in CUT.BAS 


Im Hauptmodul werden einige Variable definiert, deren Bedeutung kurz 


erläutert wird. 


col1% 
col2% 
ptr? 


feld? 
colopt? 
inlinies 
outlinies 
trace? 
skip? 
work& 
zeile& 


Zeiger auf das erste zu entfernende Zeichen 
Zeiger auf das letzte zu entfernende Zeichen 
Hilfzeiger auf aktuelles Zeichen 





Nummer des zu entfernenden Feldes 

true = Column-Option false = Feld-Option 
String mit Originalzeile 

String mit Ausgabezeile 

Schalter = true -> Trace-Mode 

Zahl der zu überlesenden Zeilen 

Zahl der zu bearbeitenden Zeilen 
bearbeitete Zeile 


Einzelheiten innerhalb des Hauptmoduls sind dem Listing zu entnehmen. 
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Die CUT-Hilfsmodule 


Die Bearbeitung bestimmter Funktionen erfolgt wie üblich in 
Hilfsmodulen, die nachfolgend besprochen werden. 


getswitch 


Hier wird der eingegebene Options-String decodiert. Im ersten Schritt ist 
zu prüfen, ob die Trace-Option gesetzt ist. Dann werden die Skip Lines- 
und Process Lines-Optionen ausgewertet. Ist die Feld-Option selektiert, 
muß auch der /D-Schalter gesetzt sein. Andernfalls erfolgt ein 
Fehlerabbruch. Alternativ zur Feld-Option kann auch der Column- 
Schalter aktiviert sein. Dann werden Anfangs- und Endspalte ermittelt. 
Dabei kann es vorkommen, daß nur ein Wert definiert wird (/C=1 oder 
/C=-20). In diesen Fällen sind die jeweils fehlenden Parameter auf O oder 
255 zu setzen. Ist der Wert der Anfangsspalte größer als der Wert der 
Endespalte, dann bricht das Programm mit einer Fehlermeldung ab. 


getval 


Dieses Modul liest einen String aus vorzeichenbehafteten Dezimalziffern 
ein und bestimmt den Wert (Integer). Das Ergebnis wird dann in der 
Variablen tmp% abgelegt. Die Funktion wird aus dem Unterprogramm 
getswitch aufgerufen. 


column 


Dieses Unterprogramm entfernt aus dem String inlinie$ alle Zeichen 
zwischen den Zeigern coll% und col2%. Der Reststring wird dann in 
outlinie$ abgelegt. 


fieldx 


Bei Anwahl der Feld-Option sucht dieses Modul das entsprechende Feld. 
Dabei werden die Variablen coll% und col2% auf die Anfangs- und 
Endeseparatoren des betreffenden Feldes positioniert. Fehlt der Separator 
im untersuchten Satz oder wird kein Feld mit der entsprechenden 
Nummer gefunden, erfolgt eine Warnung an den Bediener. Der Satz wird 
anschließend unmodifiziert in die Ausgangsdatei kopiert. Wurde ein 
gültiges Feld gefunden, erfolgt ein Aufruf des Unterprogrammes column, 
da dieses ja bereits die Funktion der Zeichenentfernung erfüllt. 


getfile 


Dieses Modul separiert einen Dateinamen aus dem übergebenen 
Optionsstring. Der Name muß durch ein Leerzeichen vom nachfolgenden 
Text getrennt sein. Der Parameter ptr% spezifiziert, ab welcher Position im 
Optionsstring die Separierung erfolgen soll. Nach dem Aufruf zeigt ptr% 
auf das Leerzeichen hinter dem Dateinamen. 


fehler 


Mit fehler werden Laufzeitfehler des PowerBASIC-Systems abgefangen. Die 
Fehlernummer wird angezeigt, danach bricht das Programm ab. 
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skipblank 


Das Modul entfernt führende Leerzeichen aus einem übergebenen Text 
(string$). Der Zeiger (ptr%) bestimmt beim Aufruf, ab welcher Position der 
Text bearbeitet wird. Nach dem Aufruf zeigt ptr% auf das erste Zeichen, 
das kein Leerzeichen ist. Der Text wurde aber nicht verändert. Im 
rufenden Programm lassen sich dann die Leerzeichen leicht durch die 
Funktion MID$() entfernen. 


Die Einzelheiten sind dem nachfolgenden Listing zu entnehmen. 


Erweiterungsvorschläge 


Mit der Feld-Option läßt sich nur jeweils ein Feld pro Programmlauf 
bearbeiten. Eine Erweiterung hinsichtlich der Möglichkeit zur 
gleichzeitigen Entfernung mehrerer Felder ist denkbar. Weiterhin besteht 
die Möglichkeit, den Filteralgorithmus so abzuwandeln, daß ein 
bestimmtes Zeichen gesucht wird, ab dem dann die eingelesenen Zeilen 
bearbeitet werden. 


REF /2=50 (ce) Born Version 1.0 
Datei : cut.bas Datum : 05-17-1992 Seite : 1 
Zeile Anweisung 


TKAKAKKKAKKKKHKKHTK KK KK HK TH KK HK KH HK KH KK KK TH KH KK KK KH KH TH KH KK KK TH KH IK KH KH KH KH HK KH A &ÜUO 


'ı File : CUT.BAS 

'ı Vers. >. T..0 

'! Last Edit 0: 25892 

'ı Autor : G. Born 

'ı Files : INPUT, OUTPUT 

'ı Progr. Spr.: POWERBASIC 

'ı Betr. Sys. : DOS 2.1 - 5.0 

'ı Funktion: Das Programm liest eine Textdatei ein und 
filtert 

1 bestimmte Textspalten aus. Das Ergebnis wird in 

"1 einer zweiten Datei abgelegt. Es sind folgende 

"1 Optionen möglich: 

ei 

"1 /F=x1 entferne Feld x1 

| 

"1 In diesem Fall muß ein Feldseparator mit 

u 

1 /D=x x = Trennzeichen 

| 

"1 eingegeben werden. Weiterhin können einzelne 


mit 
/C=x1-x2 xl = Anfangsspalte x2 = Endspalte 


entfernt werden. Es ist jeweils nur die /F oder 
/C Option zulässig. Die Option: 
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t /S=xx 
1 
vo erlaubt am Anfang der Textdatei n Zeilen zu 
überlesen, 
u während bei der 
1 
gi /P=xx 
je 
2 Option nur n Zeilen bearbeitet werden. 
1 
'ı Aufruf: CUT 'ı Interaktiv 
Modus 
"1 CUT <dateil> <datei2> <Optionen> 'ı Kommando 
Modus 
IKAKKKKKKKKKHKKK KK KK HK TK HK KK TH KH TH KH KH KH KH KH KH KH TH KH KK KK TH KK TK KH HK TH KH KH TH KH TK AK KK A KH A KU &ÜUO 
'ı Variable definieren 
1 %true = &HFFFF: %false = 0 'ı Konstante 
2 trace% = %false 'ı No Trace Mode 
3 ein = 1 : aus% = 2 'ı Kanäle für I/O 
4 coll%® = 1 '! Anfangsspalte 
5 col2% 255 'ı Endspalte 
6 feld% = 0 'ı Feldnr. für Option 
/F 
7 colopt% = $true '! Column Option 
einstellen 
8 options$ = "" 'ı Optionen 
9 inlinies = "" 'ı Puffer Lesedatei 
10 outlinie$ = "" 'ı Puffer Schreibdatei 
11 skip% 0 'ı Zeilen überlesen 
12 work& 100000 'ı Zeilen zu bearbeiten 
13 zeile& = 0 '! bearbeitete Zeilen 
14 ptr% = 0: hilf% = 0 'ı Hilfszeiger 
15 tmp$ = "" 'ı Hilfsstring 
16 sep$ = "" 'ı Delimiter Feld 


ON ERROR GOTO fehler 


HH HHHHHRHHHHHHHHRH HH H HH HEHE HEHE HEHE HEHE HH HH HH HH HH HH HIER 
Hauptprogramm 
HE HHHHHHRHHHHHHHHRH HH HE BHH HEHE HEHE HH HH HH H HH HH HI HHEH HH HEHE 


'# 


# 


18 kommando$ = COMMANDS 'ı Parameter ? 
19 IF LEN (kommando$) = 0 THEN 'ı Interaktiv Mode ? 
20 CLS 'ı ja -> Clear Screen 
II HHHHH Kopf ausgeben H###### 
21 PRINT "CUT (ce) Born Version 1.0" 
22 PRINT 
23 PRINT "Optionen [ /F=xx Feld Nummer /D=x 
Delimiter 
] " 
24 PRINT " [ /S=xx Skip n Lines /P=xx Prozess 
n Line 
s ] " 
25 PRINT " [ /C=x1-x2 Column x1 bis x2 /T Trace 





ON 
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T.* 


26 PRINT 
27 INPUT "Eingabedatei : "‚infilename$ '! lese Dateiname 
Eingabe 
28 INPUT "Ausgabedatei : ",outfilename$ '! lese Dateiname 
Ausgabe 
29 INPUT "Optionen : ",options$ '! lese Optionen 
30 PRINT 
31 ELSE 'ı Kommando Mode 
32 ptr% = INSTR (kommando$,"/?") '! Option /? 
33 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 
34 PRINT "CUT (ce) Born Version 1.0" 
35 PRINT 
36 PRINT "Optionen : [ /F=xx Feld Nummer /D=x 
Delimiter 
" 
37 PRINT " [ /S=xx Skip n Lines /P=xx 
Prozess n Lin 
es ]" 
38 PRINT " [ /C=x1-x2 Column x1 bis x2 /T Trace 
ON 
" 
39 PRINT 


4l PRINT 
42 PRINT 
43 PRINT 











Felder a 
n" 
45 PRINT 
Datei" 
46 PRINT 


aktiviert wir 


47 PRINT 











48 PRINT 
am Bild 

49 PRINT 

50 SYSTE 

51 END IF 


1 


| 
'ı Fall 
'ı Vari 
Zue 
"1 
52 ptr? = 
53 CALL_g 
Eingabedatei 
54 INCR p 


token 


"Das Programm filtert bestimmte Textspalten aus 


"Bingabedatei heraus. Optionen:" 


"/F=xx filtert das durch Delimiter getrennte Feld 


"/D=x gibt den Delimiter (z.B. ,„ oder ;) für die 


"/C=x1-x2 schneidet die Spalten x1 bis x2 aus der 


" /S=xx überliest n Zeilen, bevor der Filter 


"/P=xx filtert nur n Zeilen und terminiert dann" 
n/T gibt die bearbeitete Zeile und das Ergebnis 


schirm aus" 


M 


getfile separiert den Dateinamen aus der Kommandozeile 


s ein Name fehlt, würden die Optionen in die jeweilige 
able gespeichert. Dies ist abgefangen, da Optionen mit 
beginnen. Dann wird ein Leerstring zurückgegeben 


1 'ı Parameter holen 
etfile(ptr?, kommando$,infilename$) '! Name 
tr?% '! Anfang next 
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55 CALL getfile(ptr%, kommando$,outfilename$) '! Name 
Ausgabedatei 

56 hilf% = INSTR (kommando$,"/") '! suche Optionen 

57 IF hilf% >= ptr% THEN '! gefunden ? 

58 options$ = MID$ (kommando$,hilf%) '! Reststring mit 
Optionen 

59 END IF 

60 END IF 

61 IF infilename$ = "" THEN '! Leereingabe ? 

62 PRINT "Der Name der Eingabedatei fehlt" 

63 END 

64 END IF 

65 IF outfilename$ = "" THEN 'ı Leereingabe ? 

66 PRINT "Der Name der Ausgabedatei fehlt" 

67 END 

68 END IF 

69 IF (LEN(options$) = 0) OR _ '! Optionen prüfen ? 

70 (INSTR (options$,"/") = 0) THEN 

71 PRINT "Die Options fehlen oder sind falsch" 

72 END 

73 END IF 

74 OPEN infilename$ FOR INPUT AS #ein% '! öffne Eingabedatei 


'! Ausgabedatei vorhanden -> prüfe über OPEN inputdatei 


75 ON ERROR GOTO ok 


76 OPEN outfilename$ FOR INPUT AS #aus% '! existiert 
Ausgabedatei% 

77 ON ERROR GOTO fehler 

78 CLOSE #aus% '! nein -> Close 


79 INPUT "Ausgabedatei existiert bereits, überschreiben (J/N) ? 





" ’ tmp$ 
80 PRINT 
81 IF UCASE$ (tmp$) <> "J" THEN END '! stopp -> sonst Datei 
weg 
82 ok: 
83 OPEN outfilename$ FOR OUTPUT AS #aus?% '! Ausgabedatei open 
84 options$ = UCASES (options$) 'ı in Großbuchstaben 
85 GOSUB getswitch '! lese Optionen 
86 PRINT 
87 PRINT "CUT Start " 
88 PRINT 


'ı überlese führende Zeilen falls skip line gesetzt 
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89 WHILE (skip% > 0) AND (NOT (EOF(ein%))) 
90 DECR skip% 'ı skipt - 1 
91 LINE INPUT #ein%, inlinie$ 'ı lese eine Zeile 
92 PRINT #aus?, inlinie$ 'ı in Ausgabedatei 
93 IF trace‘ THEN 'ı Trace Mode ? 
94 PRINT inlinie$ '! Anzeige Original 
95 PRINT inlinie$ '! Anzeige Kopie 
96 PRINT 
97 END IF 
98 WEND 

1 

'!ı bearbeite n Zeilen 

1 
99 WHILE (zeile& < work&) AND (NOT (EOF (ein%))) 
100 LINE INPUT #ein%, inlinie$ 'ı lese eine Zeile 
101 lang% = LEN (inlinie$) '! Merke Zeilenlänge 
102 IF colopt% THEN 
103 CALL column (inlinie$, outlinie$) '! auswerten Zeile 
104 ELSE 


105 CALL fieldx(inlinie$, outlinie$) ut u 
106 END IF 


107 PRINT #aus?, outlinie$ '! Zeile in 
Ausgabedatei 

108 IF trace% THEN '! Trace Mode ? 

109 PRINT inlinie$ 'ı display Original 

110 PRINT outlinie$ 'ı display Zeile 


111 PRINT 

112 END IF 

113 INCR zeile& 'ı Zeile + 1 
114 WEND 


'ı restliche Zeilen umkopieren 


115 WHILE NOT (EOF (ein?)) 

116 LINE INPUT #ein%, inlinie$ 'ı lese eine Zeile 
117 PRINT #aus?, inlinie$ 'ı in Ausgabedatei 
118 IF trace% THEN 'ı Trace Mode ? 
119 PRINT inlinie$ 'l ja -> Anzeige 
120 PRINT inlinie$ FUZTR 

121 PRINT 

122 END IF 

123 WEND 


124 CLOSE 

125 PRINT 

126 PRINT "CUT Ende" 
127 END 





HH HH 
'# Hilfsroutinen # 
HH HH 


121 
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128 


129 
130 
131 
132 
133 
134 
135 
136 


137 
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fehler: 


IF ERR = 53 THEN 





PRINT "Die Datei ";infilename$;" existiert nicht" 
ELSE 

PRINT "Fehler : ";ERR;" unbekannt" 

PRINT "Programmabbruch" 

END IF 

END MSDOS Exit 
RETURN 
getswitch: 

ME ar el al a a A a kl a A a a a ae Van A a na A A a 1 EA a Eh a BE ak Ba a Aa 
'ı decodier ingegebene Optionen 

'ı /F = field /D = separator /C = column 

'ı /S = skip /P = process /T trace 


options$ = UCASES$ (options$) 


IF INSTR (options$,"/T") > O THEN 
trace? = %true 
END IF 


ptr% = INSTR (options$, "/S=") 

IF ptr% > 0 THEN 

CALL getval (options$,ptr%+3,skip?%) 
END IF 


ptr% = INSTR (options$, "/P=") 
? 
IF ptr® > 0 THEN 
CALL getval (options$,ptr%+3,tmpx%) 
work& = tmpx% 
END IF 
ptr% = INSTR (options$,"/F=") 
IF ptr% > 0 THEN 
CALL getval (options$,ptr%+3,feld%) 
IF feld% <= 0 THEN 


Trace Mode ein 


Skip Lines Option ? 


lese Zahl 


Process Lines 


lese Zahl 


Field Option ? 


lese Zahl 
falsche Nummer 


PRINT "Feld Nummer ";feld%;" nicht zulässig" 


END 

END IF 

ptr% = INSTR (options$, "/D=") 
IF ptr% = 0 THEN 
PRINT "Option /D fehlt" 
END 

END IF 

sep$ = MID$ (options$,ptr%+3,1) 
colopt% = %false 

RETURN 

END IF 


! 


check Delimiter 


get Separator 
select Field Option 
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167 ptr% = INSTR (options$,"/C=") '! Column Option ? 
168 IF ptr% > 0 THEN 

'ı es sind folgende Eingaben erlaubt: 

'ı /cC10-20 /<C-20 /c10- 
169 INCR ptr%,3 | 
170 CALL getval (options$,ptr?%,tmpx%) h 


auf 1. Zeichen 
lese 1. Wert 


171. IF tmpx% < 0 THEN '!l negativer Wert ? 
172 col2% = -tmpx% 'ı Endespalte 
173 ELSE 
174 coll% = tmpx% 'l Startspalte 
175 IF MID$ (options$,ptr%,1) = "-" THEN 
176 CALL getval (options$,ptr%,tmpx%) '! lese 2. Wert 
177 tmpx% = - tmpx% 'ı Vorzeichenwechsel 
178 IF tmpx% > col1l% THEN '! Endewert? 
179 col2% = tmpx% '1 ja 
180 END IF 
181 END IF 
182 END IF 
183 ELSE 
184 PRINT "Fehler: Options /C oder /F fehlen" 
185 END 
186 END IF 
187 RETURN 
188 SUB getval (text$,ptr?%, result?) 
1 BE PERRER SER REN EEN-BNELRE BR AGENT -OREEE FERBERTEDRE-S SER EEE UEEERE-SOREEAGHEES EURER TEE SOERER FEOERZERRE- SAG RE EHRE SOC ESTER ESTER BEIDE- MER TEERGER 
'!ı decodiere Eingabewert als Dezimalzahl 
We a a a a a a ae 
189 LOCAL tmp%, zchn$, leng%, sign% 
190 sign = 1 'ı Vorzeichen + 
191 tmp% = 0 'ı Hilfsvariable 


192 leng% = LEN (text$) 


überlese Leerzeichen 
separ. Zeichen 


193 CALL skipblank (ptr?%,text$) ' 
194 zchn$ = MID$ (text$,ptr%,1) i 


195 IF zchn$ = "-" THEN 'ı Vorzeichen ? 
196 sign? = -1 'ı Vorzeichen - 
197 INCR ptr% 'ı auf 1. Ziffer 
198 END IF 

199 zchn$ = MID$ (text$,ptr%,1) '! separ. Zeichen 


200 WHILE (zchn$ >= "0") AND (zchn$ <= "9") 
201 AND (ptr% <= leng%) ı 
202 tmp% = tmp% * 10 + VAL(zchn$) s 
203 INCR ptr?% s 
204 zchn$ = MID$ (text$,ptr%,1) y 
205 WEND 

206 result% = tmp?% * sign? 'ı Vorzeichen 


n Ziffern 

Ziffer holen 
nächstes Zeichen 
lese Zeichen 


207 END SUB 


208 SUB column (quelle$, ziel$) 
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I EN a En EN a FE a en ET u ea nee a Da ie 
'! entferne alle Zeichen von Spalte (start) bis Spalte (ende) 
WE a a a a a a Te ee ee ae a 
209 SHARED col1%, col2% 
210 IF coll% <= O0 THEN coll% = 1 '!l negativer Wert 
211 ziel$ = LEFT$ (quelle$,col1l%-1) '! Anfang merken 
212 ziel$ = ziel$ + MID$(quelle$,col2%+1)'! Rest anhängen 
213 END SUB 
214 SUB fieldx (quelle$,ziel$) 
N ae en En ee A EM en En an a En En a DE a an a a een 
'ı entferne Feld Nr. n 
I a a a a a a a a a a a a a a a En a a a a en 
215 SHARED feld%, col1%, col2%, sep$ 
216 LOCAL ptr%, zahl?%, anf%, ende?%, lang? 
217 lang% = LEN (quelle$) 
218 ptr% = INSTR (quelle$,sep$) '! suche separator 
219 IF ptr% = 0 THEN '! nicht gefunden 
220 ziel$ = quelle$ 'ı alles übernehmen 
221 PRINT "kein Separator" 
222 EXIT SUB 
223 END IF 
'!ı beachte, daß ein Delimiter entfernt wird !!! 
224 anf% = 1: ende% = ptr?% 'ı init Feldgrenzen 
225 zahl% = 1 'ı Feldzähler 
226 WHILE (zahl% < feld%) AND (ptr?% > 0) 
227 anf% = ende% +1 'ı hinter Delimiter 
228 ptr% = INSTR (ptr%+1,quelle$,sep$) '! suche Feldende 
1 
BEEEEEEEEEEREEEEEEEEEEEEEEEEEEEREEEEEEEEEEEEEEEEEEEEEEEEN 
'! Achtung TB Fehler: Der Befehl INSTR() funktioniert 
'ı nicht immer, falls der Suchbegriff nicht vorkommt. 
'!ı Deshalb muß ptr% = 0 und ptr% < Stringlänge abge- 
'ı fragt werden. (In PowerBASIC übernehmen?!) 
Ku Du Da a Da Da a Da ED a Es EEE De ED ED a ED DE DE a Ep EB En En Eu 
"1 
229 IF (ptr% = 0) OR (ptr% >= lang%) THEN '! letztes Feld ? 
230 ende% = LEN(quelle$) 'l ja -> auf 
Stringlänge 
231 DECR anf? 'ı auf Delimiter 
232 ptr% = 0 'ı Ende Schleife ! 
233 ELSE 
234 ende% = ptr?% 'ı nein -> auf 
Delimiter 
235 END IF 
236 INCR zahl?% 'ı next Feld 
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Feld gefunden? 
Feld nicht gefunden 


Feld gefunden 
Feldanfang 
Feldende 

cut field with 


237 WEND 

238 IF (zahl% < feld%) THEN „1 

239 ziel$ = quelle$ it 

240 PRINT "Feld Nr. ";feld%;" nicht gefunden" 

241 EXIT SUB 

242 END IF 

243 IF zahl% = feld% THEN 

244 coll% = anf% 1 

245 col2% = ende% "ı 

246 CALL column (quelle$,ziel$) .f 
column 


248 END SUB 





249 SUB getfile (ptr%,text$, result$) 
I ! u mn Ba m m Ga a m u a m m m m ann a m Fü A m uvm a nn 
'! separiere Filename aus Eingabetext (text$) 
'ı ptr% -> Anfang Filename, result$ = Filename 


250 LOCAL tmp% 


251 CALL skipblank (ptr?%,text$) 
252 tmp% = INSTR (ptr%,text$," ") 
253 IF tmp% = 0 THEN 
254 PRINT "Fehler: kein Fileseparator" 
255 END 
256 END IF 
257 IF MID$ (text$,ptr%,1) = "/" THEN 
2 
258 result$ = "" 
259 ELSE 
260 result$ = MID$ (text$,ptr?%, tmp%-ptr%) 
261 ptr% = tmp% 
262 END IF 
263 END SUB 
264 SUB skipblank (ptr?%,text$) 


entferne Blanks 
suche Separator 


kein Endeseparator 
Exit 


Optionen eingegeben 
Leerstring 


Filename 
korrigiere ptr% 


INES Se SE ae Ben ade umsetzen una SE EIER SEE enden 


265 lang%, zchn$ 


266 lang% = LEN (text$) 


267 zchn$ = MID$ (text$,ptr%,1) 

268 WHILE (zchn$ = " ") AND (ptr% <= lang?) 
269 INCR ptr? 

270 zchn$ = MID$ (text$,ptr%,]l) 

271 WEND 


Stringlänge 
separiere Zeichen 


! Zeichen <> blank 


separiere Zeichen 
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272 END SUB 


Ixkkk* Programm Ende **+**** 


Listing 3.2: CUT.BAS 


PASTE: Vereinigung von Textdateien 


CUT ermöglicht es, bestimmte Spalten aus einem Textdokument 
»herauszuschneiden«. Nun fehlt noch eine Funkton zum 
Zusammenkleben. Hierbei sind die Texte satzweise zu kombinieren. Bei 
der Bearbeitung von Tabellen tritt diese Aufgabe zum Beispiel häufiger 
auf: Informationen sind aus zwei Dateien spaltenweise zu kombinieren. 
Nachfolgend wird ein solcher Fall konstruiert. Es liegt eine Datei mit 
Namen und Adressen vor. Eine zweite Datei enthält satzweise die 
zugehörigen Telefonnummern. Hieraus ist nun ein Textdokument zu 
erstellen, welches die Daten im folgenden Format enthält: 


Name Adresse Telefonnummer 


Beide Dateien sind satzweise zu lesen, zusammenzufügen und in einer 
dritten Datei auszugeben. Eine Arbeit, die per Texteditor nur mit 
erheblichem manuellen Aufwand zu erledigen ist. 


Ein ähnliches Problem tritt auf, wenn zum Beispiel aus folgender Tabelle: 
Name : Adresse : Telefonnummer 


die Spalten Adresse und Telefonnummer zu tauschen sind. Per Editor 
kaum zu schaffen, aber mit den Modulen CUT und PASTE elegant nach 
folgendem Schema durchzuführen. 


« Zerlege die Urdatei mit CUT in drei Dateien, die jeweils nur noch 
eine Spalte besitzen. 


e Kombiniere die (Spalten-) Dateien mittels des Programms PASTE in 
beliebiger Reihenfolge. 


Es sind sicherlich einige Aufrufe notwendig, aber die Arbeit wird 
zuverlässig verrichtet. Notfalls läßt sich hierfür eine kleine Batchdatei 
erstellen, so daß die Aufgabe beliebig oft wiederholbar ist. 


Da das Modul PASTE recht klein ist, wird sich hier auf die Diskussion der 
Ein-/Ausgabemeldungen beschränkt. 


Das Programm ist wie gewohnt mit einer interaktiven Bedieneroberfläche 
und mit einer Kommandoversion ausgestattet. Bei der Eingabe des Wortes 
PASTE, ohne weitere Parameter, verzweigt das Programm in den 
interaktiven Modus und meldet sich nach dem Start mit dem Kopftext: 


PASTE (ce) Born Version 1.0 
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Optionen : [ /F=xx Skip n Lines in File 1 ] 
[ /D=xx Delimiter /T Trace ON ] 


Eingabedatei 1: 
Eingabedatei 2: 
Ausgabedatei 
Optionen 


Bild 3.5: Kopfmeldung des Programmes PASTE 


Mit »Ein-/Ausgabedatei« werden gültige MS-DOS Dateinamen, die auch 
Laufwerks- und Pfadangaben enthalten dürfen, abgefragt. Existiert eine 
der angegebenen Eingabedateien nicht, bricht das Programm mit folgender 
Meldung ab: 


Die Datei <Name 1> oder <Name 2> existiert nicht 


An Stelle von <Name 1> und <Name 2> erscheinen die eingegebenen 
Dateinamen. Die Abfrage nach der Eingabedatei 2 erscheint erst nach 
Eingabe des vorhergehenden Dateinamens. Das gleiche gilt für die Abfrage 
der Ausgabedatei. Existiert die Ausgabedatei bereits, erfolgt eine Warnung: 


Ausgabedatei existiert bereits, überschreiben (J/N) ? 


die explizit zu quittieren ist. Der Programmablauf wird mit den folgenden 
Meldungen angezeigt: 


PASTE Start 
PASTE Ende 


Im Trace-Modus erscheinen zusätzlich die bearbeiteten Zeilen auf dem 
Bildschirm. 


Für den Einsatz in Batchdateien besteht die Möglichkeit zur Eingabe der 
Dateinamen in der Kommandozeile. Der Kommandomodus besitzt folgende 
Syntax: 


PASTE <Eingabedatei 1> <Eingabedatei 2> <Ausgabedatei> <Options> 


Die Dateinamen dürfen Laufwerks- und Pfadbezeichnungen enthalten. 
Wildcard-Zeichen (*.*) sind allerdings nicht erlaubt. Die einzelnen 
Parameter sind durch jeweils ein Leerzeichen voneinander zu trennen. 


Über den Aufruf: 
PASTE /? 


läßt sich die Online-Hilfe aktivieren. Auf dem Bildschirm erscheint dann 
folgender Text: 


PASTE (ce) Born Version 1.0 
Optionen : [ /S=xx Skip n Lines in File 1 ] 
[ /D=xx Delimiter /T Trace ON ] 
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Das Programm liest zwei Eingabedateien und kombiniert 
die Texte zeilenweise in eine Ausgabedatei. 


Optionen: 


/S=xx überliest n Zeilen in File 1 bis File 2 angehängt wird 
/D=xx definiert den Delimiter, der die Teilsätze trennt 
/T schaltet den Trace-Modus ein 


Bild 3.6: Online-Hilfe für PASTE 


Anschließend endet das Programm wieder. 


Die Optionen 


Nun sollten noch kurz die Optionen besprochen werden. Anders als bei 
CUT sind diese bei der Eingabe nicht zwingend vorgeschrieben. Aber sie 
ermöglichen in einigen Fällen etwas mehr Komfort beim Umgang mit CUT. 


DieSkip Line-Option /S 


Oft ist es so, daß die zu ergänzende Tabelle in einen Text integriert ist. 
Dieser Text darf natürlich nicht bearbeitet werden. Hierfür dient die 
Option Skip Line. Durch die Eingabe: 


/S=20 


werden die ersten 20 Zeilen innerhalb der Textdatei überlesen und 
unbearbeitet in die Ausgabedatei gespeichert. Diese Option ist nicht 
zwingend vorgeschrieben. Falls sie fehlt, beginnt die Bearbeitung der 
Datei ab der ersten Zeile. 


DieTrace-Option /T 


Wird der Schalter /T gesetzt, erscheinen alle Zeilen, die in die 
Ausgabedatei abgespeichert werden, auch auf dem Bildschirm. Diese 
Option ist standardmäßig ausgeschaltet, um die Anzeige zu unterdrücken. 


Die Delimiter-Option / D 
Mit dieser Option läßt sich ein Trennzeichen definieren, welches zwischen 
die zwei zu kombinierenden Sätze eingefügt wird. Dies kann ein 


Feldtrennzeichen (z.B.: , ,) oder einfach ein Leerzeichen sein. Gültige 
Eingaben sind: 


/D-# 
/d=: 


Mit der Taste Alt lassen sich auch Zeichen eingeben, die nicht auf der 
Tastatur vorkommen. Fehlt diese Option, werden die Sätze direkt (auch 
ohne Leerzeichen) zusammengefügt. 


Der Text der Eingabedateil wird immer linksbündig gespeichert. Jeder 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


PowerBasic-Programmierhandbuch 129 


Satz wird dann durch den zugehörigen Satz der Eingabedatei2 ergänzt. 


Die Fehlermeldungen 


Ähnlich dem Programm CUT gibt PASTE einige Fehlermeldungen aus, die 
nachfolgend zusammengefaßt werden. 


e Meldung: Der Name der <....datei> fehlt . 
} } 
e Ursache: Es fehlt der Name einer Ein- oder Aus- ® 
. gabedatei. Dies kann insbesondere beim ® 
. Kommandomodus auftreten. . 
e Meldung: Die Datei < > oder < > existiert nicht ® 
C} U} 
e Ursache: Im eingegebenen Verzeichnis wurde die . 
. Eingabedatei nicht gefunden. . 
e Meldung: Fehler : <Nummer> unbekannt . 
} } 
ee Ursache: Laufzeitfehler PowerBASIC. Die Nummer e 
. gibt die Fehlerart an (PowerBASIC . 
. Dokumentation). . 


Meldung: Fehler : kein Fileseparator . 


zwischen den Dateinamen, oder es wurdene 
keine Optionen eingegeben. . 


U} 
© 
e Ursache: In der Kommandozeile fehlen die Blanks ®e 
U} 
® 


Tabelle 3.3: Fehlermeldungen des Programmes PASTE 


Bei diesen Fehlern bricht das Programm den Ablauf ab. 


Die Implementierung 


Das Programm besitzt einen relativ einfachen Aufbau, der in Bild 3.7 
dargestellt wird. 
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Parameter in Kommandozeile? 
Kopfmeldung (interaktiver Modus) 


| ! Eingabeparameter lesen 
| 





WEND 
Schreibe restliche Datei, falls nicht EOF 
schließe Dateien 


End 


Bild 3.7: Ablauf des Hauptprogrammes PASTE.BAS 


Im Hauptmodul werden die Variablen initialisiert. Dann wird geprüft, ob 
eine Kommandozeile mit Dateinamen vorhanden ist. In diesem Fall erfolgt 
die Separierung der Eingabedaten mit dem Unterprogramm getfile. 
Andernfalls erscheint die Kopfmeldung und die Daten werden interaktiv 
abgefragt. Nach einer Überprüfung der Eingaben auf Plausibilität werden 
die Dateien geöffnet. In einer Schleife werden die eventuell mit der Skip 
Line-Option spezifizierten Zeilen überlesen. Dann beginnt die Bearbeitung 
der beiden Eingabedateien. Es wird jeweils ein Satz der Eingabedatei 1 
gelesen. Dann ist der entsprechende Satz der Eingabedatei 2 zu lesen. Die 
Ausgabe erfolgt mit einer PRINT-Anweisung, wobei die gelesenen Texte 
hintereinander geschrieben werden. Die Variable delimiter$ kann ein 
Trennzeichen enthalten (/D= Option). Im Initialisierungsteil wird der 
Variablen ein Leerstring zugewiesen. Ist das Ende einer der beiden 
Eingabedateien erreicht, wird die Schleife verlassen. Falls die Längen der 
Eingabedateien verschieden sind, werden die restlichen Sätze der 
unbearbeiteten Datei in die Ausgabedatei kopiert. Danach endet das 
Programm. 


Die Hilfsmodule 


Das Programm PASTE benutzt einige Hilfsmodule, die kurz vorgestellt 
werden. 
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fehler 


Mit fehler werden Laufzeitfehler des PowerBASIC-Systems abgefangen. Die 
Fehlernummer wird angezeigt und das Programm bricht ab. Die 
Fehlerursache ist den PowerBASIC-Handbüchern zu entnehmen. 


getswitch 


Hier wird der eingegebene Options-String decodiert. Im ersten Schritt ist 
zu prüfen, ob die Trace-Option gesetzt ist. Dann wird die Skip Lines- 
Option ausgewertet. Die letzte Prüfung gilt der Delimiter-Option. Ist diese 
vorhanden, trägt das Modul den gefunden Wert in die Variable delimiter$ 
ein. 


getval 


Dieses Modul liest einen String aus vorzeichenbehafteten Dezimalziffern 
ein und bestimmt den Wert (Integer). Das Ergebnis wird dann in der 
Variablen tmp% abgelegt. Die Funktion wird aus dem Unterprogramm 
getswitch aufgerufen. 


getfile 


Dieses Modul separiert einen Dateinamen aus dem übergebenen 
Optionsstring. Der Name muß durch ein Leerzeichen vom nachfolgenden 
Text getrennt sein. Der Parameter ptr% spezifiziert, ab welcher Position im 
Optionsstring die Separierung erfolgen soll. Nach dem Aufruf zeigt ptr% 
auf das Leerzeichen hinter dem Dateinamen. 


skipblank 


Das Modul entfernt führende Leerzeichen aus einem übergebenen Text 
(string$). Der Zeiger (ptr%) bestimmt beim Aufruf, ab welcher Position der 
Text bearbeitet wird. Nach dem Aufruf zeigt ptr% auf das erste Zeichen, 
das kein Leerzeichen ist. Der Text wurde aber nicht verändert. Im 
rufenden Programm lassen sich dann die Leerzeichen leicht durch die 
Funktion MID$() entfernen. 


Einzelheiten sind dem nachfolgenden Listing zu entnehmen. 


Erweiterungsvorschläge 


Das Programm kann um eine Process-Line-Option erweitert werden, so 
daß nur n Zeilen einer Eingabedatei zu bearbeiten sind. Weiterhin kann 
eine Option den Ablauf bei ungleichen Längen der Eingabedateien steuern 
(z.B. Abbruch, falls das Ende der ersten Datei erreicht ist). 


XREF /2=50 (ce) Born Version 1.0 

Datei : paste.bas Datum : 05-17-1992 Seite : 1 

Zeile Anweisung 
IKAKKKKKKKKKHKTKH KK KK HK TK KH KHK HK KH TH KH KH KH KK KH KK TH KH HK TH KH KK KK KK KH KK TK AK KK A KH HK KA KH KR) 
'ı File : PASTE.BAS 
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'! Vers. 2. LuD 

'ı Last Edit 6. 5.92 

'ı Autor : G. Born 

'ı Files : INPUT, OUTPUT 
'ı Progr. Spr.: POWERBASIC 

'! Betr. Sys. : DOS 2.1 - 5.0 


Funktion: Das Programm liest zwei Textdateien ein und 
kombiniert diese zeilenweise, so daß aus je- 
weils den zwei Einzelsätzen ein Satz wird. 
Das Ergebnis wird in einer Ausgabedatei abge- 
legt. Es sind folgende Aufrufe möglich: 





'ı Aufruf: PASTE 'ı Interaktiv 
Mode 
1 PASTE <dateil> <datei2> <datei3> '! Kommando 
Mode 
IKAKKKKKKKKKKKKH KK KK HK KH TK HK KK HK KH TH KH KH KH KH KH KH KH TH KH KK KK KH KK TK KH KK KH TH TH KK TK AK KK A KH A KU &ÜUO 
'ı Variable definieren 
1 %true = &HFFFF: %false = 0 'ı Konstante 
2 einl1% = 1 : ein2% = 2 : aus? = 3 'ı Kanäle für I/O 
3 inliniel$ = "" 'ı Puffer Lesedatei 1 
4 inlinie2$ = "" 'ı Puffer Lesedatei 2 
5 trace% = %false 'ı Trace Mode aus 
6 skip% = 0 'ı Zeilen überlesen 
7 ptr? = 0: hilf% = 0 'ı Hilfszeiger 
8 delimiter$ = "" 'ı Trennzeichen 
'ON ERROR GOTO fehler 
HEHE HH HH HH HH HH HH HHHHHHEHHHEH 
'# Hauptprogramm # 
HEHE HH HH HH HH HH HH HHHHFHHHEH 
9 kommando$ = COMMANDS 'ı Parameter ? 
10 IF LEN (kommando$) = 0 THEN 'ı Interaktiv Mode ? 
11 CLS 'ı ja -> Clear Screen 
'ı HHHHH Kopf ausgeben H##### 
12 PRINT "PASTE (ce) Born Version 
1.0. 
13 PRINT 
14 PRINT "Optionen : [ /S=xx Skip n Lines in File 1 RL 
15 PRINT " [ /D=xx Delimiter /T Trace ON I" 
16 PRINT 
17 INPUT "Eingabedatei 1 : ",infilenamel$ '! lese Dateiname 
Eingabe 1 
18 INPUT "Eingabedatei 2 : ",infilename2$ '! lese Dateiname 
Eingabe 2 
19 INPUT "Ausgabedatei : ",outfilename$ '! lese Dateiname 
Ausgabe 
20 INPUT "Optionen : ",options$ '! lese Optionen 
21 PRINT 
22 ELSE 'ı Kommando Mode 
23 ptr% = INSTR (kommando$,"/?") '! Option /? 
24 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 
25 PRINT "PASTE (ce) Born Version 
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1.0" 
26 PRINT 
27 PRINT "Optionen [ /S=xx skip n Lines in File 1 1" 
28 PRINT " [ /D=xx Delimiter /T Trace ON I” 
29 PRINT 
30 PRINT "Das Programm liest zwei Eingabedateien und 
kombiniert" 
31 PRINT "die Texte zeilenweise in eine Ausgabedatei. 
Optionen: " 
32 PRINT 
33 PRINT "/S=xx überliest n Zeilen in File 1 bis File 2 
angehängt wird" 
34 PRINT "/D=xx definiert den Delimiter, der die Teilsätze 
trennt" 
35 PRINT "/T schaltet den Trace-Modus ein" 
36 PRINT 
37 SYSTEM 
38 END IF 
1 
'ı getfile separiert den Dateinamen aus der Kommandozeile 
1 
39 kommando$ = UCASES (kommando$) 'ı in Großbuchstaben 
40 ptr?® = 1 'ı Parameter holen 
41 CALL getfile(ptr%, kommando$,infilenamel$) '! Name 
Eingabedateil 
42 INCR ptr% '! Anfang next 
token 
43 CALL getfile(ptr%, kommando$,infilename2$) '! Name 


Eingabedatei2 


! Anfang next 


Name 


suche Optionen 
gefunden ? 
Reststring mit 





44 INCR ptr% 
token 

45 CALL getfile(ptr%, kommando$,outfilenames) '! 
Ausgabedatei 

46 hilf% = INSTR (kommando$,"/") 1 

47 IF hilf% >= ptr% THEN N 

48 options$ = MID$ (kommando$,hilf%) Le 
Optionen 

49 END IF 

50 END IF 

51 IF infilenamel$ = "" THEN "1 


Leereingabe ? 
Eingabedatei 1 fehlt" 


Leereingabe ? 


52 PRINT "Der Name der 

53 END 

54 END IF 

55 IF infilename2$ = "" THEN Ey 
56 PRINT "Der Name der Eingabedatei 2 fehlt" 
57 END 

58 END IF 

59 IF outfilename$ = "" THEN "1 


Leereingabe ? 


60 PRINT "Der Name der Ausgabedatei fehlt" 
61 END 
62 END IF 
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63 OPEN infilenamel$ FOR INPUT AS #einl1% '! öffne Eingabedatei 
64 OPEN infilename2$ FOR INPUT AS #ein2% '! öffne Eingabedatei 
'! Ausgabedatei vorhanden -> prüfe über OPEN inputdatei 


65 ON ERROR GOTO ok 
66 OPEN outfilename$ FOR INPUT AS #aus% '! existiert 


Ausgabedatei% 


67 ON ERROR GOTO fehler 
68 CLOSE #aus% '! nein -> Close 


69 INPUT "Ausgabedatei existiert bereits, überschreiben (J/N) ? 





v L tmp$ 
70 PRINT 
71 IF UCASE$ (tmp$) <> "J" THEN END '! stopp -> sonst Datei 
weg 
72 ok: 
73 OPEN outfilename$ FOR OUTPUT AS #aus?% '! Ausgabedatei open 
74 options$ = UCASES (options$) 'ı in Großbuchstaben 
75 GOSUB getswitch '! lese Optionen 
76 print "opt ";skip%;" ";delimiter$;" ";trace% 
77 PRINT 
78 PRINT "PASTE Start " 
79 PRINT 


1 


'ı überlese führende Zeilen falls skip line gesetzt 
"1 


80 WHILE (skip% > 0) AND (NOT (EOF(ein1%))) 

81 DECR skip% ! skip? - 1 

82 LINE INPUT #ein1%, inliniel$ 'ı lese eine Zeile 
83 PRINT #aus%, inliniel$ 'ı in Ausgabedatei 
1 
I 


84 IF trace% THEN '! Trace Mode ? 

85 PRINT inliniel$ '! Anzeige Original 
86 END IF 

87 WEND 


"1 

'! bearbeite n Zeilen 

"1 
88 LINE INPUT #ein1?%, inliniel$ 'ı lese eine Zeile 
89 LINE INPUT #ein2%, inlinie2$ ! lese eine Zeile 


90 WHILE (NOT EOF(einl1%)) AND (NOT EOF (ein2%)) 


91 PRINT #aus%, inliniel$; delimiter$;_ '! Zeile in 
Ausgabedatei 
92 inlinie2$ i " 


93 IF trace‘ THEN ' 
94 PRINT inliniel$;delimiter$; _ ! 
95 inlinie2$ 1 


Trace Mode ? 
Display Zeile 


I 
I 
! 
I " 
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96 
97 
98 
99 


100 
101 
102 
103 
104 
105 
106 


107 
108 
109 
110 
111 
112 
113 


114 


115 
116 
117 


118 


119 
120 
121 
122 
123 
124 
125 
126 
127 


128 


END IF 
LINE INPUT #ein1%, inliniel$ 'ı lese eine Zeile 
LINE INPUT #ein2%, inlinie2$ 'ı lese eine Zeile 
WEND 
vei 
'ı restliche Zeilen umkopieren bei unterschiedl. Dateilängen 
1 
WHILE NOT (EOF (ein1%)) '! Datei 1 fertig? 
PRINT #aus?%, inliniel$ 'ı in Ausgabedatei 
IF trace% THEN 'ı Trace Mode ? 
PRINT inliniel$ 'l ja -> Anzeige 
END IF 
LINE INPUT #ein1%, inliniel$ 'ı lese eine Zeile 
WEND 
WHILE NOT (EOF (ein2%)) '! Datei 2 fertig? 


PRINT #aus?%, inlinie2$ i 
IF trace% THEN . 
PRINT inlinie2$ i 
END IF 
LINE INPUT #ein2%, inlinie2$ 'ı lese eine Zeile 
WEND 


in Ausgabedatei 
Trace Mode ? 
ja -> Anzeige 


CLOSE 


PRINT 
PRINT "PASTE Ende" 
END 


HH HH HH HH HH HH HH HHHHEHHHEH 
'# Hilfsroutinen # 
HH HH HH HH HH HH HH HH HH HH HHHHEHHHEH 


'ı Fehlerbehandlung in PASTE 


IF ERR = 53 THEN 


PRINT "Die Datei ";infilenamel$;" oder ";infilename2$;_ 
" existiert nicht" 
ELSE 
PRINT "Fehler : ";ERR;" unbekannt" 
PRINT "Programmabbruch" 
END IF 
END '! MSDOS Exit 
RETURN 
getswitch: 





'ı decodier ingegebene Optionen 
'ı /S = skip /D = separator /T = tracen 
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129 options$ = UCASE$ (options$) 


130 IF INSTR(options$,"/T") > 0O THEN 
131 trace? = $true 'ı Trace Mode ein 
132 END IF 


133 ptr% = INSTR (options$,"/S=") 'ı Skip Lines Option ? 
134 IF ptr% > 0 THEN 
135 CALL getval (options$, ptr%+3,skip%) 'ı lese Zahl 


136 END IF 


137 ptr% = INSTR (options$, "/D=") 'ı check Delimiter 
138 IF ptr% > 0 THEN 
139 delimiter$ = MID$ (options$,ptr%+3,1) '! get Separator 


140 END IF 
141 RETURN 


142 SUB getval (text$,ptr?, result?) 


'! decodiere Eingabewert als Dezimalzahl 


143 LOCAL tmp%, zchn$, leng%, sign% 


144 sign = 1 'ı Vorzeichen + 
145 tmp% = 0 'ı Hilfsvariable 


146 leng% = LEN(text$) 


überlese Leerzeichen 
separ. Zeichen 


147 CALL skipblank (ptr%,text$) ' 
148 zchn$ = MID$ (text$,ptr%,1) 1 





149 IF zchn$ = "-" THEN 'ı Vorzeichen ? 
150 sign? = -1 'ı Vorzeichen - 
151 INCR ptr% 'ı auf 1. Ziffer 
152 END IF 

153 zchn$ = MID$ (text$,ptr%,1) '! separ. Zeichen 


154 WHILE (zchn$ >= "0") AND (zchn$ <= NO) 

155 AND (ptr? <= leng%) 'ı n Ziffern 

156 tmp?% = tmp% * 10 + VAL(zchn$) 'ı Ziffer holen 

157 INCR ptr% 'ı nächstes Zeichen 
158 zchn$ = MID$ (text$,ptr%,1) 'ı lese Zeichen 

159 WEND 

160 result? = tmp?% * sign‘ 'ı Vorzeichen 


161 END SUB 


162 SUB getfile (ptr%,text$,result$) 


De EEE EEE DEE DE N NE DER CE BRENNEN 


'! separiere Filename aus Eingabetext (text$) 


'ı ptr% -> Anfang Filename, result$ = Filename 
haare herzen stsaseneogsmeue male one 


163 LOCAL tmp% 
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164 CALL skipblank (ptr%,text$) 'ı entferne Blanks 

165 tmp% = INSTR (ptr%,text$," ") '! suche Separator 

166 IF tmp% = 0 THEN 

167 PRINT "Fehler: kein Fileseparator" '!ı kein Endeseparator 

168 END 'ıl Exit 

169 END IF 

170 IF MID$ (text$,ptr%,1) = "/" THEN 'l Optionen eingegeben 
= 

171 results = "" 'ı Leerstring 

172 ELSE 

173 result$ = MID$ (text$,ptr%,tmp%-ptr?%) 'ı Filename 

174 ptr% = tmp% '!ı korrigiere ptr% 

175 END IF 


176 END SUB 
177 SUB skipblank (ptr%,text$) 


ee EEE 


'! entferne führende Leerzeichen aus text$ 


178 LOCAL lang%, zchn$ 


179 lang% = LEN (text$) 'ı Stringlänge 

180 zchn$ = MID$ (text$,ptr%,1) '! separiere Zeichen 
181 WHILE (zchn$ = " ") AND (ptr% <= lang?) '! Zeichen <> blank 
182 INCR ptr% 

183 zchn$ = MID$ (text$,ptr%,1) '! separiere Zeichen 
184 WEND 


185 END SUB 


Ixkkk* Programm Ende **+**** 


Listing 3.3: PASTE.BAS 


SHOW: Bildschirmanzeige von Textdateien 


Bei der Entwicklung von Software oder bei der Erstellung von Texten fallen 
mit der Zeit eine Reihe Dateien an. Oft stellt sich dann die Frage nach dem 
Inhalt der Dateien. Nicht immer steht ein Drucker zur Ausgabe der 
Listings zur Verfügung, oder dieser Weg ist nicht erwünscht. Also wird die 
MS-DOS-Funktion TYPE zur Anzeige der Texte am Bildschirm benutzt. 
Sind mehrere längere Dateien zu bearbeiten, muß sich der Anwender in 
Geduld üben, da ja immer der komplette Inhalt ausgegeben wird. Oft 
möchte man jedoch nur einige Zeilen des Dateianfangs sehen, um eine 
bestimmte Datei zu identifizieren. Sind die Programme (wie in diesem 
Buch) mit einem Kommentarkopf versehen, kann die interne 
Programmfunktion oft an Hand dieser Informationen bestimmt werden. 
TYPE oder COPY bieten keine Möglichkeit zur Ausgabe dieser 
Kommentarköpfe, vielmehr wird der komplette Text ausgegeben, womit 
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meist der Dateianfang nicht mehr auf dem Bildschirm steht. 


Das Betriebssystem Unix bietet ein entsprechendes Hilfsprogramm, 
welches die Ausgabe des Textanfangs oder des -endes erlaubt. Ein 
ähnliches Werkzeug soll nun auch für die MS-DOS-Welt entwickelt 
werden, das folgende Funktionen bietet: 


e Bildschirmausgabe des Dateianfangs, wobei die Zeilenzahl 
vorgegeben werden kann. 


e Anzeige des Textendes mit wählbarer Zeilenzahl. 


e Ausgabe der kompletten Textdatei auf dem Bildschirm mit 
zuschaltbarer Zeilennumerierung. 


*e Seitenweise Ausgabe auf dem Bildschirm analog der DOS-MORE- 
Funktion. 


Der erste Punkt erfüllt obige Forderung, nur den Kommentarkopf 
auszugeben. Bei der Erstellung von Texten ist Punkt 2 oft hilfreich. Hier 
läßt sich schnell überprüfen, ob das Dateiende textlich und inhaltlich zum 
Anfang der folgenden Datei paßt. Die letzten Punkte fallen etwas aus der 
Reihe. TYPE erlaubt ja bereits die Ausgabe kompletter Dateien. Was aber 
fehlt ist die Anzeige mit einer vorangestellten Zeilennummer. Gerade dies 
wird bei den Programmen CUT oder PASTE benötigt. Ist bei CUT eine 
Tabelle innerhalb eines Textes zu bearbeiten, benötigt der Anwender die 
Parameter für die Optionen »Skip Lines« und »Process Lines«. Das Modul 
SHOW liefert nun genau diese Informationen. Weiterhin ist es störend, 
wenn der ausgegeben Text über den Bildschirm rollt. MS-DOS bietet zwar 
die Möglichkeit, über den Filter MORE eine seitenweise Ausgabe zu 
erzwingen. Aber warum sollte ein solche Funktion nicht direkt im 
eigentlichen Programm implementiert werden? 


Nach diesen Vorüberlegungen fehlt noch die genaue Spezifikation der 
Bedieneroberfläche. Mit der Eingabe: 


SHOW 


wird das Programm im Interaktiv-Modus gestartet. Es erscheint folgende 
Meldung (Bild 3.8): 


SHOW (ce) Born Version 1.0 
Optionen: [/L=+xx Anzeige n Zeilen am Dateianfang ] 


[/L=-xx Anzeige n Zeilen am Dateiende ] 
UN Zeilennumerierung /M More Ein ] 





Eingabedatei : 
Optionen 


Bild 3.8: Kopfmeldung des Programmes SHOW 
Der Name der Eingabedatei darf sowohl Laufwerks- als auch Pfadangaben 


enthalten. Es sind also alle gültigen MS-DOS-Dateinamen erlaubt, 
lediglich Wildcards (* bzw. ?) werden nicht unterstützt. Die Abfrage nach 
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den Optionen erscheint erst nach Eingabe des Dateinamens. Im Kopftext 
werden die möglichen Eingaben dargestellt. Eine Leereingabe bei der 
Optionsabfrage veranlaßt SHOW, die komplette Datei auszugeben. Die 
gleiche Funktion bietet das DOS-Kommando TYPE. 


Die Optionen 


Nun soll das Programm aber einigen Komfort bieten. Weiterhin muß die 
Zahl der auszugebenden Zeilen am Dateianfang oder -ende spezifiziert 
werden. Für diese Zwecke besteht die Möglichkeit, beim Aufruf 
verschiedene Optionen zu wählen. 


Die More-Option / M 


Wird die More-Option /M gesetzt, unterbricht SHOW die Ausgabe, sobald 
die untere Bildschirmzeile erreicht wird. In der untersten Zeile erscheint 
die Meldung: 


Weiter, bitte eine Taste betätigen ... 


Wird eine Taste gedrückt, löscht SHOW den Bildschirm und gibt die 
nächste Seite aus. Damit läßt sich der ausgegebene Text in Ruhe lesen, 
ohne daß die Bildschirmanzeige mit Strg+S angehalten werden muß. Die 
More-Option läßt sich mit den anderen Optionen kombinieren. 


Die Option Zeilennumerierung / N 


Wird diese Option gesetzt, gibt SHOW vor jeder ausgegebenen Zeile eine 
laufende Zeilennummer aus. Diese Information ist zum Beispiel für die 
Programme CUT und PASTE wichtig. Ohne die /N-Option entfällt die 
Ausgabe der Zeilennumerierung. Die /N-Option läßt sich mit den anderen 
Optionen kombinieren. 


Die Line-Option /L 


Diese Option erlaubt es, die Anzahl der auszugebenden Zeilen am 
Textanfang oder -ende zu spezifizieren. Ohne /L wird die komplette 
Textdatei auf dem Bildschirm ausgegeben. Soll nur der Anfang der Datei 
angezeigt werden, ist dies mit: 


/L=+xx 


anzugeben. Das Pluszeichen signalisiert, daß sich die nachfolgende Zahl 
&) auf den Dateianfang bezieht. Es sind also xx Zeilen ab dem 
Textanfang auf dem Bildschirm anzugeben. Für xx ist der Zahlenbereich 
von 1 bis 99 erlaubt. Längere Textdateien sind ohne die /L-Option 
auszugeben. 


Alternativ besteht die Möglichkeit zur Anzeige von n Zeilen am Textende. 
Hierfür ist die folgende Eingabe vorgesehen: 


JL=-xx 


Das Minuszeichen steht für die Ausgabe des Textendes. Als Zahlenbereich 
für xx sind die Werte zwischen 1 und 99 zulässig. Längere Texte lassen 
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sich durch TYPE ausgeben. Wird gleichzeitig die /N-Option selektiert, 
erscheinen die Zeilennummern (bezogen auf den Textanfang) mit in der 
Anzeige. Die /L=+xx und /L=-xx Optionen lassen sich nicht gleichzeitig 
selektieren. Um sowohl den Textanfang als auch das Textende 
auszugeben, besteht die nachfolgend beschriebene Möglichkeit des 
Aufrufes über den Kommandomodus. 


Der Aufruf von SHOW im Kommandomodus 


Zur Benutzung in Batchdateien besteht die Möglichkeit der 
Parametereingabe innerhalb der Kommandozeile. Dieser Aufruf besitzt 
folgende Syntax: 


SHOW <dateiname> <Options> 


Der Dateiname entspricht den gültigen MS-DOS-Konventionen. Das 
Optionsfeld kann entfallen. In diesem Fall wird die komplette Datei 
ausgegeben. Falls keine Datei existiert, erscheint bei beiden 
Eingabeversionen die Fehlermeldung: 


Datei <Filename> nicht gefunden 


Bei der Kommandooption lassen sich die Schalter in beliebiger Reihenfolge 
getrennt durch Leerzeichen eingeben. Nachfolgend finden sich einige 
gültige Angaben für Optionen: 


/N /M /L=+10 
/L=-99 /N /M 
/L= +10 /L= -30 /N 


Die letzte Zeile enthält zweimal die /L-Option. Dies ist nach der Definition 
aber nicht zulässig. SHOW übernimmt in diesem Fall nur die zuerst 
gefundene gültige Option und ignoriert die nachfolgenden Zeichen der 
/L=-xx-Option. 


Bei fehlerhaften Eingaben erfolgt eine Fehlermeldung. Bei der More-Option 
wird vor Ausgabe der ersten Zeile der Bildschirm gelöscht, während ohne 
More-Option die Anzeige gescrollt wird. 


Die Online-Hilfe 


Wie bei DOS 5.0 und den anderen Programmen läßt sich ein Bildschirm 
mit Online-Informationen über die Eingabe: 


SHOW /? 


abrufen. Dann erscheint folgender Text: 


SHOW (ce) Born Version 1.0 


Aufruf: SHOW 


SHOW <dateil> <optionen> 
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Das Programm gibt n Zeilen am Anfang oder Ende einer Text- 
datei aus. Optionen: 


/L=+xx Anzeige n Zeilen vom Dateianfang 
/L=-xx Anzeige n Zeilen vom Dateiende 
/N Zeilennumerierung 

/M More-Option 


Bild 3.9: Die Online-Hilfe von SHOW 


Anschließend bricht das Programm ab, und Sie können weitere DOS- 
Befehle eingeben. 


Der Entwurf 


Damit kann mit dem Programmentwurf begonnen werden. Die Optionen 
/L=+xx und /N sind ohne Probleme zu erfüllen. Hier muß einfach die 
Datei satzweise gelesen und ausgegeben werden. Die Anzeige der 
Zeilennummern kann durch einen PRINT-Befehl erfolgen. Bei der More- 
Option ist ein interner Zähler zu führen, der beim Erreichen des unteren 
Bildschirmrandes ein eigenes Modul aktiviert. Dieses muß die 
Benutzereingaben abfragen, die Anzeige löschen und die Ausgabe auf Zeile 
l setzen 


Bleibt noch die /L=-xx-Option, die etwas mehr Probleme bringt. Wie läßt 
sich die Zeile erkennen, ab der der Text bis zum Dateiende auszugeben 
ist? 


In den wenigsten Fällen ist die Zahl der Zeilen in der Textdatei bekannt. 
Also muß eine geeignete Lösung für diese Aufgabe gesucht werden. Die 
erste Möglichkeit besteht darin, die Zeilenzahl in einem ersten Durchlauf 
zu ermitteln. Dann ist die Datei in einem zweiten Durchgang satzweise zu 
lesen und ab der selektierten Position auszugeben. Dies hat den großen 
Vorteil, daß kein großer Aufwand für die Aufbereitung entsteht. Aber bei 
längeren Textdateien wirkt sich das zweimalige Durchsuchen negativ auf 
das Laufzeitverhalten aus. 


Eine andere Alternative besteht darin, sich für jeden Satz den Offset in 
Byte zum Dateianfang zu merken. Dann läßt sich anschließend der 
Lesezeiger direkt auf den ersten auszugebenden Satz positionieren. Dies 
spart zwar Laufzeit, bedingt aber andererseits einen hohen 
Verwaltungsaufwand. Bei längeren Dateien dauert der Positioniervorgang 
auch eine gewisse Zeit. 


Für die nachfolgende Implementierung wird eine dritte Alternative 
gewählt. Die Zahl der auszugebenden Zeilen ist per Definition auf maximal 
99 begrenzt. Ein interner Ringpuffer dient zur Aufnahme der laufenden 
Zeilennummern und der jeweils gelesenen Sätze. Der Puffer besitzt eine 
feste Größe für 99 Einträge. Dies bedeutet, daß in jeder Situation die 
(maximal 99) zuletzt gelesenen Sätze der Datei im Puffer vorliegen. Sobald 
die Datei komplett gelesen wurde, läßt sich die gewünschte Anzahl der 
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Textzeilen am Dateiende ausgeben. 


Noch ein paar Bemerkungen zur Pufferverwaltung. Einmal findet sich eine 
Variable, die die Zahl der Einträge enthält. Dies ist erforderlich, da der Fall 
auftreten kann, daß mit /L= -xx mehr Zeilen zur Ausgabe spezifiziert 
werden als die Datei enthält (z.B. Datei = 50 Zeilen und /L> -99). Ein 
Zeiger adressiert die jeweils nächste zu beschreibende Zeile im Puffer. Da 
der Puffer eine ringförmige Topologie besitzt, ist der Zeiger mit Modulo 99 
zu erhöhen, d.h. bei mehr als 99 Zeilen wird einfach der älteste Eintrag 
am Pufferanfang überschrieben. Dies hat gegenüber einer linearen 
Anordnung den Vorteil, daß die Sätze innerhalb des Puffers nicht 
verschoben werden müssen. 


Die Implementierung 


Um die Realisierung zu vereinfachen, wurde die Aufgabe in verschiedene 
Teile strukturiert und in Form von kleineren Modulen implementiert. Das 
folgende Hierarchiediagramm (Bild 3.10) zeigt die Zusammenschaltung 
aller Module. 





getfile skipblank 





getswitch p —— getval 











naln anfang 





fehler 











Bild 3.10: Hierarchiediagramm des Programmes SHOW 


Es ist ersichtlich, daß bereits in den vorhergehenden Abschnitten 
entwickelte Module Verwendung finden. Dies gilt insbesondere für die 
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Unterprogramme fehler, getswitch, getval, getfile und skipblank. Dadurch 
beschränkt sich die Implementierung nur noch auf die restlichen Module, 
deren Aufbau und Funktion nachfolgend beschrieben wird. 


Das Hauptmodul 


In diesem Programm werden die globalen Variablen und Konstanten 
definiert. Die Puffergröße zur Aufnahme der eingelesenen Zeilen (buff$0) 
und der Zeilennummern (buffz&(0) wird durch die Konstante %max 
spezifiziert. Durch Variation dieser Konstante lassen sich auch mehr als 
99 Zeilen ausgeben. Die Bedeutung der Variablen ist im Listing 
beschrieben. Der Ablauf ähnelt den bereits besprochenen Programmen. 
Nach den Variablendefinition wird geprüft, ob in der Eingabezeile weitere 
Parameter vorhanden sind. Ist dies der Fall, sind Dateiname und 
eventuelle Optionen zu separieren. Andernfalls verzweigt das Modul in den 
interaktiven Abfragemodus und gibt die Kopfmeldung aus. Nach dem 
Öffnen der Eingabedatei sind eventuelle Optionen zu decodieren. Die 
jeweiligen Schalter (more%, linenr%, outz%) wurden bei der Initialisierung 
auf Standardwerte gesetzt. Dann wird je nach dem Wert von outz% (/L-) 
die Eingabedatei bearbeitet. Falls keine /L-Option vorliegt (outz% = 0), 
kann der Text ganz normal ausgegeben werden. Mit outz% > O (/L=+x) 
muß das Modul anfang aktiviert werden. Für die /L=-xx-Option ist das 
Modul ende zuständig. Die Unterscheidung erfolgt über den Wert von 
outz% in der CASE-Anweisung. Nach der Bearbeitung ist die Datei zu 
schließen und das Programm zu beenden. 


getswitch 


Hier sind die eingegeben Optionen zu decodieren und die jeweiligen 
Parameter zu setzen. Bei der /L-Option ist auf eine Begrenzung der 
Eingabewerte zu achten. Dies erfolgt durch Vergleich mit der Konstanten 
%max, was letztlich zur Flexibilität des Programmes beiträgt. 


getval 


Das Modul wurde so modifiziert, daß es Zahlen mit positiven und 
negativen Vorzeichen erkennt und decodiert. 


anfang 


Dieses Unterprogramm ist für die Ausgabe des Textes am Dateianfang 
verantwortlich. Die Datei wird in der WHILE-Schleife satzweise gelesen 
und mit PRINT ausgegeben, bis die spezifizierte Zeilenzahl erreicht ist. 
Dann bricht das Modul die Bearbeitung ab. Falls die /N-Option selektiert 
ist, erscheint vor jeder Zeile der Wert der Variablen zeile& (Zeilennummer). 
Der Aufruf des Unterprogrammes newscreen sorgt dafür, daß bei 
selektierter More-Option eine Benutzerabfrage am unteren Bildschirmrand 
erscheint. Das Modul nutzt nur einen Eintrag im Textpuffer (buff$(1)) für 
die Speicherung der Daten. 
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ende 


Dieses Modul gibt n Zeilen am Textende auf dem Bildschirm aus. In einer 
eigenen WHILE-Schleife wird die Datei zuerst satzweise gelesen. Diese 
Schleife ist bereits so organisiert, daß die Zeichen direkt in den Ringpuffer 
(buff$0) geschrieben werden. Gleichzeitig dient das Feld buffz&( zur 
Aufnahme der Zeilennummern. In count% wird die Zahl der Puffereinträge 
geführt. Dies ist wichtig, um Dateien mit weniger als %max Sätzen zu 
erkennen, da dort nur ein Teilpuffer auszugeben ist. Nach Erreichen des 
Dateiendes ist die spezifizierte Zeilenzahl aus dem Puffer anzuzeigen. 
Vorher muß der Zeiger auf den Puffer so justiert werden, daß er auf den 
auszugebenden Text zeigt. Dann werden n Zeilen ausgegeben, wobei dieser 
Wert in count% steht. Es ist aber darauf zu achten, daß count% immer 
kleiner oder gleich der mit /L spezifizierten Zeilenzahl ist. 


newscreen 


Bei der More-Option ist die Ausgabe zu unterbrechen, sobald der untere 
Bildschirmrand erreicht wird. Dann muß die folgende Benutzermeldung 
erscheinen: 


Weiter, bitte ein Taste betätigen ... 


Diese Aufgabe fällt dem Modul newscreen zu. Falls der Wert der Variablen 
scrline% die maximale Zeilenzahl pro Bildschirmseite (%maxscr) übersteigt, 
erscheint diese Meldung. Erst nach Betätigung einer Taste löscht der 
Befehl CLS den Bildschirm und gibt die weitere Bearbeitung frei. 


Weitere Einzelheiten sind dem nachfolgenden Listing zu entnehmen. 


Erweiterungsvorschläge 


Das Modul SHOW erlaubt nur die Ausgabe von 99 Zeilen am Textanfang 
oder -ende. Durch Variation der Konstanten %max läßt sich dieser Wert 
vergrößern. Weiterhin kann SHOW so erweitert werden, daß jeder beliebige 
Ausschnitt aus einer Textdatei ausgegeben werden kann. Denkbar ist 
auch, daß mit einem Aufruf Anfang und Ende einer Datei angezeigt 
werden. 


XREF /2=50 (ce) Born Version 1.0 
Datei : show.bas Datum : 05-17-1992 Seite : 1 
Zeile Anweisung 
IKAKKKKKKKKKHKTKK KK KK HK TH TK KH KHK HK KH TH KH KH TH KH KH TH KK TH KH HK TH KH KK KK KK KH KK TK AK KK AK KH AK A KH KR) 
'ı File ı SHOW.BAS 
'l Vers. ae BER © 
'ı Last Edit 1.64. 5.92 
'ı Autor : G. Born 
'ı Files : INPUT, OUTPUT 
'ı Progr. Spr.: POWERBASIC 
'! Betr. Sys. : DOS 2.1 - 5.0 
"1 


Funktion: Das Programm liest eine Textdatei ein und gibt 
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"1 diese auf dem Bildschirm aus. Dabei kann 








angegeben 

u werden, wieviele Zeilen vom Textende oder - 
anfang 

| angezeigt werden (max. 99). 

| 

vl /L=+xx Anzeige des Dateianfangs 

11 /L=-xx Anzeige des Dateiendes 

11 /N Zeilennumerierung 

"1 /M More-Option 

| 

'ı Aufruf: SHOW 'ı Interaktiv 
Mode 

"! SHOW <dateil> <optionen> 'ı Kommando 
Mode 


TRKKAKKKAKKKKHKKK KK KK TH HK TH KH HK FH KH KK KK KH KK KH KK TH TH TH KH KK KK HK KH TH KH KK KH KH KH HK AH U KU 


'ı Variable definieren 


1 %true = &HFFFF: %false = 0 'ı Konstante 

2 ein$ = 1 'ı Kanal für I/O 

3 options$ = "" 'ı Optionen 

4 more% = %false '! More Option aus 

5 linenr% = %false '! Zeilennummern aus 
6 max = 99 

7 DIM buff$(0:%max-1) 'ı Puffer Lesedatei 

8 DIM buffz&(0:%max-1l) 'ı Puffer Zeilennummern 
9 outz% = 0 '! Ausgaben /L=... 
10 zeile& = O0 '!ı bearbeitete Zeilen 
11 <maxscr = 20 '! Zeilen pro Screen 
12 scrline& = 0 'ı aktuelle Bildzeile 
13 ptr% = 0: hilf% = 0 'ı Hilfszeiger 


14 ON ERROR GOTO fehler 


HEHE HEHE HH HH HH HH HH HH HH HH HH HH HH HH HHEHHHEH 
'# Hauptprogramm # 
HH HEHE HH HH HH HH HH HH HHH HH HH HH HH HH HHHHHHHHHEH 





15 kommando$ = COMMANDS 'ı Parameter ? 

16 IF LEN (kommando$) = 0 THEN 'ı Interaktiv Mode ? 

17  CLS 'ı ja -> Clear Screen 

'ı HHHHH Kopf ausgeben H##### 

18 PRINT "SHOW (ce) Born Version 1.0" 

19 PRINT 

20 PRINT "Optionen : [ /L=+xx Anzeige n Zeilen am Dateianfang 
j" 

21 PRINT " [ /L=-xx Anzeige n Zeilen am Dateiende 
I" 

22 PRINT " [/N Zeilennumerierung /M More Ein 
T® 

23 PRINT 

24 INPUT "Eingabedatei : "‚infilename$ '! lese Dateiname 
Eingabe 

25 INPUT "Optionen : ",options$ '! lese Optionen 
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26 PRINT 
27 ELSE '! Kommando Mode 
28 ptr% = INSTR (kommando$,"/?") '! Option /? 
29 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 
30 PRINT "SHOW (ce) Born Version 1.0" 
31 PRINT 
32 PRINT "Aufruf: SHOW" 
33 PRINT " SHOW <dateil> <optionen>" 
34 PRINT 
35 PRINT "Das Programm gibt n Zeilen am Anfang oder Ende einer 
Text-! 
36 PRINT "datei aus. Optionen:" 
37 PRINT 
38 PRINT "/L=+xx Anzeige n Zeilen vom Dateianfang" 
39 PRINT "/L=-xx Anzeige n Zeilen vom Dateiende" 
40 PRINT "/N Zeilennumerierung" 
41 PRINT "/M More Option" 
42 PRINT 
43 SYSTEM 
44 END IF 
| 
'! getfile separiert den Dateinamen aus der Kommandozeile 
'ı Falls ein Name fehlt, würden die Optionen in die jeweilige 
'ı Variable gespeichert. Dies ist abgefangen, da Optionen mit 
'ı /.. beginnen. Dann wird ein Leerstring zurückgegeben 
| 
45 kommando$ = UCASE$ (kommando$) + " " 1 Blank als 
Endeseparator 
46 ptr® = 1 'ı Parameter holen 
47 CALL getfile(ptr%, kommando$,infilename$) '! Name 
Eingabedatei 
48 INCR ptr% '! Anfang next token 
49 hilf% = INSTR (kommando$,"/") '! suche Optionen 
50 IF hilf% >= ptr% THEN '! gefunden ? 
51 options$ = MID$ (kommando$,hilf%) '! Reststring mit 
Optionen 
52 END IF 
53 END IF 
54 IF infilename$ = "" THEN '! Leereingabe ? 
55 PRINT "Der Name der Eingabedatei fehlt' 
56 END 
57 END IF 
58 OPEN infilename$ FOR INPUT AS #ein? 'ı öffne Eingabedatei 
59 IF LEN(options$) > 0 THEN 
60 GOSUB getswitch '! lese Optionen 
61 END IF 
ur 
'ı bearbeite Datei je nach Option 
| 
62 PRINT '! Leerzeile 
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63 IF more% THEN CLS 'ı clear Screen bei 
More 


64 SELECT CASE outz% 


65 CASE > 0 
66 CALL anfang (outz%) '! L=+xx Option 


67 CASE = 0 


68 WHILE NOT (EOF(ein?)) 


69 INCR zeile& 'ı Jaufende 
Zeilennummer 

70 LINE INPUT #ein%, buff$(1) 'ı Jese eine Zeile 

71 INCR scrline& 'ı Bildzeile +1 

72 IF more% THEN CALL newscreen 'ı Bildwechsel bei More 
2 

73 IF linenr% THEN PRINT zeile&;" "; '! Zeilennr. ausgeben 

74 PRINT buff$ (1) 'l anzeigen 

75 WEND 


76 CASE < O0 
77 CALL ende (outz?) 


78 END SELECT 

79 CLOSE '! Datei schließen 

80 END 
HHHHHHHHRHHHHH HERR HH HH HEHE BEE RHHH HEHE HHFH HH HH HH HH HHEHH HIER 
'# Hilfsroutinen # 


"HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HHHH 


81 fehler: 


82 IF ERR = 53 THEN 
83 PRINT "Die Datei ";infilename$;" existiert nicht" 
84 ELSE 


85 PRINT "Fehler : ";ERR;" unbekannt" 

86 PRINT "Programmabbruch" 

87 END IF 

88 END 'ı MSDOS Exit 
89 RETURN 


90 getswitch: 





'ı decodier ingegebene Optionen 
'ı /M= more /N= Zeilennummern 
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91 


92 
93 
94 


95 

96 
ein 

97 


98 
Text 
99 
100 
101 
102 


103 


104 


105 


106 


107 
108 


109 


110 
111 
112 
113 
114 
115 
116 
117 


118 


119 
120 
121 
122 
123 
124 
125 


/L=+xx Textanfang 
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/L=-xx Textende 


options$ = UCASE$ (options$) "1 
IF INSTR (options$,"/M") > O THEN 

more% = true ' 
END IF 

IF INSTR (options$,"/N") > O THEN 1 
linenr?% = %true ' 
END IF 
ptr% = INSTR (options$,"/L=") ' 


IF ptr%® > 0 THEN 
CALL getval (options$,ptr%+3,outz%) \ 


IF outz% > %max THEN outz?% = max ! 

IF outz% < -<max THEN outz% = - max ' 
END IF 
RETURN 


SUB getval (text$,ptr%, result?) 


in Großbuchstaben 


More Mode ein 


Linenr. Option ? 
Zeilennumerierung 


Anfang oder Ende 


lese Zahl 
begrenze Wert 
auf +99 bis -99 


'! decodiere Eingabewert als Dezimalzahl 


LOCAL tmp%, zchn$, leng?, sign? 

sign% = 1 1 
tmp® = 0 v 
leng% = LEN(text$) 

CALL skipblank (ptr%, text$) | 
zchn$ = MID$ (text$,ptr%,1) 1 
IF zchn$ = "+" THEN 

INCR ptr%& | 

ELSEIF zchn$ = "-" THEN uR 
sign%® = -1 ’ 
INCR ptr%& "| 

END IF 

zchn$ = MID$ (text$,ptr%,1) u 

WHILE (zchn$ >= "0") AND (zchn$ <= gan) 
AND (ptr?% <= leng?) ey 
tmp% = tmp% * 10 + VAL(zchn$) | 
INCR ptr%& "| 
zchn$ = MID$S (text$,ptr%,1) je} 

WEND 

result% = tmp% * sign? 1 


Vorzeichen + 
Hilfsvariable 


überlese Leerzeichen 


separ. Zeichen 
auf 1. Ziffer 
Vorzeichen ? 
Vorzeichen - 
auf 1. Ziffer 
separ. Zeichen 


n Ziffern 

Ziffer holen 
nächstes Zeichen 
lese Zeichen 


Vorzeichen 
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126 


127 


128 


129 
130 


131 
132 
133 
134 
135 


136 
137 
138 
139 
140 


141 


142 





END SUB 


SUB getfile (ptr%,text$, result$) 

I ! u ee En Fe EN Er ee Be EN en a Be an Em DW a En Ba nt ne 
'! separiere Filename aus Eingabetext (text$) 

'ı ptr% -> Anfang Filename, result$ = Filename 


Visa ae JE 22 Se en Zr a 2 a wa Ba Disease 


LOCAL tmp?% 


CALL skipblank (ptr?%,text$) '! entferne Blanks 
tmp% = INSTR (ptr%,text$," ") '! suche Separator 
IF tmp% = 0 THEN 


PRINT "Fehler: kein Fileseparator" '!ı kein Endeseparator 
END 'ı Exit 
END IF 

IF MID$ (text$,ptr%,1) = "/" THEN '!l Optionen eingegeben 
result$ = "" 'ı Leerstring 
ELSE 

result$ = MID$ (text$,ptr%,tmp%-ptr?%) 'ı Filename 

ptr% = tmp% 'ı korrigiere ptr% 
END IF 
END SUB 

SUB anfang (maxzeile%) 


Nizza see 2a en meeEFisasn a erdZai 


143 SHARED more?%, zeile&, ein?, scrline&, linenr% 

144 SHARED buff$() 

145 WHILE NOT (EOF (ein?)) 

146 INCR zeile& 'ı laufende 
Zeilennummer 

147 IF zeile& > maxzeile% THEN 

148 EXIT SUB 'l ready 

149 END IF 

150 LINE INPUT #ein%, buff$(1) 'ı Jese eine Zeile 

151 INCR scrline& 'ı Bildzeile +1 

152 IF more% THEN CALL newscreen 'ı Bildwechsel bei More 
? 

153 IF linenr% THEN PRINT zeile&;" "; '! Zeilennr. ausgeben 

154 PRINT buff$ (1) '!l anzeigen 

155 WEND 

156 END SUB 


SUB ende (maxzeile?) 
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'! kopiere Ende der Textdatei auf Screen. Hierzu werden 
'! %max Zeilen in einen Umlaufpuffer geschrieben. Am Datei- 
'ı ende liegen dann die letzten Zeilen vor und lassen sich 
'ı einfach ausgeben. 
!l------------- -- -- ---- -- ---- -- -- - - - - - - -- - - - - - - - - - - - - - - - - - - 
158 LOCAL ptr?%, count% 
159 SHARED more?%, zeile&, ein?, buff$(), scrline& 
160 SHARED linenr?, buffz«&() 
161 ptr% = 0 '! Zeiger auf Buffer 
162 count? = 0 '! keine Einträge 
163 maxzeile% = -maxzeile% '! Betrag bilden 
164 WHILE NOT (EOF (ein?)) 'ı Jese Datei 
165 INCR zeile& 'ı laufende 
Zeilennummer 
166 IF count% < <max THEN INCR count?% 'ı zähle bis %max 
167 LINE INPUT #ein?, buff$ (ptr?) 'ı Jese eine Zeile 
168 buffz&(ptr%) = zeile& '! merke Zeilennummer 
169 ptr% = (ptr% + 1) MOD %max '! ptr auf next entry 
170 WEND 
| 
'! Text aus dem Ringpuffer ausgeben, count definiert die 
Satzzahl 
'ı falls der Puffer nicht voll ist, findet sich der 1. Satz 
'ı in buff$(0), sonst steht er in buff$ (ptr?) 
"1 
171 IF count% < max THEN 'ı Puffer voll ? 
172 ptr% = ptr% - maxzeile% 'ı nein -> auf Anfang 
173 IF ptr% < 0 THEN ptr% = 0 
174 ELSE 
175 ptr% = ptr% - maxzeile% 'ı Position im 
Ringpuffer 
176 IF ptr% < O0 THEN ptr% = ptr% + max '! berechnen 
177 END IF 'ı ja -> ptr% lassen 
178 IF count% > maxzeile% THEN '! Ausgabezahl auf 
179 count% = maxzeile% 'ı /L=-xx begrenzen 
180 END IF 
181 scrline& = 0 
182 WHILE count? > 0 'l Sätze ausgeben 
183 INCR scrline& 
184 IF more% THEN CALL newscreen 'ı Bildwechsel bei More 
? 
185 IF linenr% THEN PRINT buffz&(ptr%);" ";'! Zeilennr. ausgeben 
186 PRINT buff$ (ptr?) 'l anzeigen 
187 ptr% = (ptr% + 1) MOD %max 'l next entry 
188 DECR count% 'ı 1 Zeile weniger 
189 WEND 
190 END SUB 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


PowerBasic-Programmierhandbuch 151 


191 SUB newscreen 


192 SHARED scrline& 


193 IF scrline& > %maxscr THEN 


194 PRINT 

195 PRINT "Weiter, bitte eine Taste betätigen ..." 

196 WHILE LEN (INKEY$) = O0 '! warte auf Taste 
197 WEND 

198 scrline& = 0 'ı auf 1. Zeile 
199 CLS 'ı clear Screen 
200 END IF 


201 END SUB 
202 SUB skipblank (ptr?%,text$) 


Vi a a an a a a 


'! entferne führende Leerzeichen aus text$ 


203 LOCAL lang%, zchn$ 


204 lang% = LEN (text$) 'ı Stringlänge 

205 zchn$ = MID$ (text$,ptr%,1l) '! separiere Zeichen 
206 WHILE (zchn$ = " ") AND (ptr% <= lang?) '! Zeichen <> blank 
207 INCR ptr? 

208 zchn$ = MID$S (text$,ptr%,1) '! separiere Zeichen 
209 WEND 


210 END SUB 


Ixkkk* Programm Ende **+**** 


Listing 3.4: SHOW.BAS 


CRDEL: Ein Filter zum Entfernen von Returnzeichen 


Seit den Anfangstagen der Textverarbeitung besteht das Problem, daß 
diese Produkte eine andere Satzformatierung verwenden als zum Beispiel 
die DOS-Editoren. Wer nur mit einem Textverarbeitungsprogramm oder 
nur mit einem Editor arbeitet, den braucht dies nicht zu stören. Aber es 
gibt eine Menge Leute, die vor der Aufgabe stehen, einen vorhandenen 
ASCI-Text in eines der vielen Textverarbeitungsprogramme zu 
übernehmen. Dabei stören insbesondere die »harten« Returns, die bei 
normalen Editioren nach jeder Zeile eingefügt werden. Dieses Zeichen 
werden aber bei vielen Textverarbeitungsprogrammen als Absatzmarken 
interpretiert. Zur Bearbeitun per Textsystem sind alle diese Returns zu 
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entfernen. Die manuelle Filterung im jeweiligen 
Textverarbeitungsprogramm ist sicherlich eine abendfüllende 
Beschäftigung. Abhilfe versprechen automatische Konvertierprogramme. 
Aber diese Tools müssen erst einmal vorhanden sein. Die Sache hat 
jedoch noch einen weiteren Haken: Sobald Tabellen oder fest formatierte 
Texte in der Datei auftreten, entfernt der Konverter auch hier die Returns. 
Damit müssen diese Tabellen doch wieder mühsam nachbearbeitet 
werden. Aus der Notwendigkeit heraus, ca. 600 Seiten ASCI-Text in das 
MS-Word-Format zu konvertieren, entstand die Idee für das Programm 
CRDEL. Da das Programm in Pascal vorlag wurde eine Portierung nach 
PowerBASIC vorgenommen, um auch diesem Anwenderkreis die 
Möglichkeit zur Dateikonvertierung zu bieten. 


CRDEL beschreitet einen etwas anderen Ansatz als die meisten 
Konvertierprogramme. Die Textdatei wird eingelesen und auf dem 
Bildschirm dargestellt. Dann wird bei jeder Zeile abgefragt, ob das Return 
am Zeilenende zu entfernen ist. Damit ist zwar einerseits eine manuelle 
Interaktion notwendig. Aber der Anwender kann andererseits selbst 
entscheiden, wo die Returns entfernt werden sollen. Da die Steuerung des 
Programmes nur zwei Tasten erfordert, lassen sich auch längere Dateien 
in kurzer Zeit konvertieren. 


Die Anforderungen 


Bevor mit der Erstellung des Programmes begonnen wird, sind wieder die 
Anforderungen zu definieren. Das Programm soll eine ASCII-Datei 
satzweise einlesen und je nach Benutzereingabe die Returnzeichen 
entfernen. Nach der Eingabe: 


CRDEL 


befindet sich das Programm im Interaktiv-Modus und gibt folgende Maske 
aus: 


CRDEL (ce) Born Version 1.0 
<RET> löschen -> J eingeben, sonst eine beliebige Taste betätigen 


Eingabedatei : 
Ausgabedatei : 


Die Abfrage der Dateinamen erfolgt sequentiell. Die Namen dürfen 
Laufwerks- und Pfadangaben enthalten. Nach Eingabe des Namens der 
Eingabedatei wird der Name der Ausgabedatei abgefragt. Falls beide 
Namen identisch sind, bricht das Programm mit einer Fehlermeldung ab: 


Fehler: Eingabedatei = Ausgabedatei nicht erlaubt 
Existiert eine Eingabedatei nicht, erscheint ebenfalls eine Meldung: 


Die Datei <Name> existiert nicht 
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und das Programm endet. Falls bereits eine Datei mit dem Namen der 
Ausgabedatei existiert, erfolgt eine Warnung: 


Ausgabedatei existiert bereits, überschreiben (J/N) ? 


Durch Eingabe des Zeichens »J« wird die Datei überschrieben. Alle 
anderen Eingaben beenden das Programm. Fehlende Namen für Ein- und 
Ausgabedateien führen ebenfalls zu einem Programmabbruch mit der 
meldung: 


Der Name der Eingabedatei fehlt 
Der Name der Ausgabedatei fehlt 


Alternativ besteht die Möglichkeit, die Dateinamen bereits in der 
Kommandozeile beim Aufruf anzugeben. Hierfür gilt folgende Syntax: 


CRDEL <Eingabedatei> <Ausgabedatei> 


Im Kommandomodus erscheint keine Kopfmeldung. Es gelten aber die 
bereits oben beschriebenen Fehlermeldungen und Warnungen, die auf 
dem Bildschirm erscheinen. 


Alternativ besteht die Möglichkeit, die Online-Hilfe über die Eingabe: 
CRDEL /? 


zu aktivieren. Dann erscheint folgender Text auf dem Bildschirm: 


CRDEL (ce) Born Version 1.0 


Aufruf: CRDEL 
oder CRDEL <Quellfile> <Zielfile> 








Das Programm filtert die harten Returns aus einer Textdatei. 
Löschen -> J eingeben, sonst eine beliebige Taste betätigen 


Anschließend endet das Programm wieder. 


Sobald CRDEL mit der Bearbeitung der Datei beginnt, erscheinen die 
ersten n Zeilen der ASCI-Datei auf dem Bildschirm. Durch die Anzeige 
mehrerer Zeilen lassen sich Absätze und Tabellen vorausschauend 
erkennen und behandeln. Die aktuell zu bearbeitende Zeile wird am 
Textende durch die Zeichen «--- markiert. Nun muss die Taste J betätgt 
werden, um die Absatzmarke zu entfernen. Falls am Satzende ein 
getrenntes Wort auftritt, ist gleichzeit der Trennstrich zu entfernen. Wird 
ein andere Taste gedrückt, ist die Zeile unmodufiziert zu speichern. 
Anschließend rollt der Text eine Zeile nach oben und am unteren Bildrand 
erscheint eine neue Zeile. Dies wiederholt sich solange, bis die komplette 
Datei eingelesen und bearbeitet wurde. Durch diese Technik lassen sich 
auch große Dateien in kurzer Zeit bearbeiten. 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


154 PowerBasic-Programmierhandbuch 


Der Entwurf 


Die Aufgabe ist recht einfach, so daß auf eine breitere Diskussion 
verzichtet wird. Es soll nur kurz das Konzept zur Dateibearbeitung 
erläutert werden. Aus Anwendersicht muß ein kompletter Textabschnitt 
auf dem Bildschirm erscheinen. Innerhalb dieses Textes werden die Zeilen 
dann bearbeitet. Dies hat zur Konsequenz, daß ein Zwischenpuffer zur 
Bearbeitung der eingelesenen Zeilen erforderlich wird. Dieser wird als 
Ringpuffer mit einem Schreib- und einem Lesezeiger implementiert. Zuerst 
ist der Puffer zu füllen und der Inhalt auf dem Bildschirm anzuzeigen. 
Dann wird jeweils ein Zeile aus dem Puffer gelesen, bearbeitet und in die 
Ausgabedatei gespeichert. Gleichzeitig muß der Puffer mit einem neuen 
Satz aus der Eingabedatei wieder aufgefüllt werden. Der Filteralgorithmus 
wird durch die Benutzereingaben gesteuert. Bei der Eingabe »J« ist das 
Return-Zeichen zu entfernen. Dies ist recht einfach, da der LINE INPUT- 
Befehl nur den reinen Text im Puffer ablegt. Wird hinter der 
Augabeanweisung (PRINT) ein Semikolon gesetzt, schreibt Basic den Text 
ohne Return in die Ausgabedatei. Jetzt muß aber aber noch das Textende 
aufbereitet werden. Wird ein Return entfernt, ist am Satzende ein 
Leerzeichen einzufügen, um den Satz vom nachfolgenden Wort zu trennen. 
Ein Sonderfall tritt bei getrennten Wörtern auf. Trennzeichen »-« sind zu 
entfernen, wobei kein Lerrzeichen eigefügt werden darf. Das getrennte 
Wort soll ja in der kombinierten Zeile zusammenstehen. Allerdings gibt es 
den Fall, wo der Bindestrich nicht als Trennzeichen fungiert (z.B. MS- 
DOS). Hier ist es nicht erwünscht, wenn CRDEL das Zeichen »-« entfernt. 
Deshalb wird geprüft, vo vor dem »-« ein Lerrzeichen steht. Ind iesem Fall 
wird das Zeichen nicht entfernt, sondern mit einem anhänden Lerrzeichen 
ausgegeben. Damit ist das Thema abgeschlossen. 


Die Implementierung 


Das Hauptmodul initialisiert die Variable und liest je nach Modus die 
Namen der Ein-/Ausgabedateien ein. Nach einer Überprüfung werden die 
Dateien geöffnet und die Bearbeitung beginnt. Zuerst sind n Zeilen aus 
der Datei in den Puffer zu lesen und am Bildschirm anzuzeigen (1. FOR- 
Schleife). Der Puffer (inline$() wird über den Schreibzeiger (zeile%) und 
den Lesezeiger (hilf%) verwaltet. Nachdem der Puffer gefüllt ist, beginnt die 
eigentliche Bearbeitung des Textes. Es wird jeweils ein Satz auf dem Puffer 
gelesen, bearbeitet und abgespeichert. Gleichzeitig wird ein neuer 
Eingabesatz aus der Quelldatei in den Puffer übertragen. Mit den 
LOCATE-Befehlen wird der Cursor auf die erforderlichen Positionen 
gesetzt. Dies ist einmal für die Markierung «--- erforderlich. Weiterhin wird 
durch eine PRINT-Anweisung in Zeile 25 ein Bildsroll erzwungen. 


Bei Erreichen des Dateiendes sorgt eine zweite FOR-Schleife für die 
Bearbeitung und Ausgabe des restlichen Pufferinhaltes. Dann beendet 
CRDEL die Bearbeitung. 
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fehler 


Das Modul fängt PowerBASIC-Laufzeitfehler ab. Der Aufbau wurde bereits 
besprochen. 


getfile 


Das Unterprogramm separiert die Dateinamen aus dem übergebenen 
Kommandostring. 


Einzelheiten sind dem nachfolgenden Listing zu entnehmen. 


Erweiterungsvorschläge 


Bei Fehleingaben besteht in der vorliegenden Version keine Möglichkeit 
zur Korrektur. Eine Erweiterung um eine »Undo«-Funktion für die letzte 
Eingabe ist sicherlich wünschenswert. 


XREF /2=50 (ce) Born Version 1.0 
Datei : crdel.bas Datum : 05-17-1992 Seite : 1 
Zeile Anweisung 


TRKKAKKKAKKKKHKKHKHTK KHK TH KK KH KK KH KH KK KK KH KH KK KK TH KH KK KH KK KK TH KH KK KK KH KH KH KO 


'ı File : CRDEL.BAS 

'! Vers. 439 

'ı Last Edit : 6. 5.92 

'ı Autor : G. Born 

'ı Files : INPUT, OUTPUT 
'ı Progr. Spr.: POWERBASIC 

I Beer: SYS. :ı7DOS: 2,1 = .5.0 


'ı Funktion: Das Programm liest eine Textdatei ein und 


filtert auf Benutzeranweisung die "harten 
RETURN" Zeichen am Zeilenende aus der Datei. 
Damit kann diese mit Textverarbeitungsprogrammen 
wie Word bearbeitet werden. 


ı 
ı 
ı 
ı 
ı 


ı 


Aufruf: CRDEL '! Interaktiv Mode 
CRDEL <dateil> <datei2> 'ı Kommando Mode 


TKRKAKKKAKKKKHHKK KK KK TH HK KH KH HK HK KH KK KK KH HK TH KH KK TH KK KH KK KH KH TH KH KH KK KH KH KH HK AH U KU 


| 
| 
I 
| 
| 
I 
| 
| 
| 
| 
I 
| 
| 
1 


'ı Variable definieren 


1 <max = 15 'ı Konstante 

2 eing = 1 : aus% = 2 'ı Kanäle für I/O 

3 DIM inlinie$(0:%max-1l) 'ı Puffer Lesedatei 
4 zeile% = 0 

5 ptr% = 0: hilf% = 0 'ı Hilfszeiger 

6 yi =0 'ı Cursor 


7 ON ERROR GOTO fehler 
HH HH HHHHHHHHH HH HH HHHHHH HH HH HH HH HH HH HH HH HH HH 
'# Hauptprogramm # 
HH HH HH HHHHHH HH HH HH HH HH HH HH HH HH HH HH HH HH HH 


8 kommando$ = COMMANDS + " " 'ı Parameter ? 
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9 IF LEN (kommando$) <= 1 THEN 'ı Interaktiv Mode ? 
10 CLS '! ja -> Clear Screen 
II #HHHHH Kopf ausgeben H##### 

11 PRINT "CRDEL (ce) Born Version 1.0" 

12 PRINT 

13 PRINT "löschen -> J eingeben, sonst eine beliebige Taste 
betätigen" 

14 PRINT 

15 INPUT "Eingabedatei : ",infilename$ '! lese Dateiname 
Eingabe 

16 INPUT "Ausgabedatei : ",outfilename$ '! lese Dateiname 
Ausgabe 

17 PRINT 

18 ELSE 'ı Kommando Mode 

19 ptr% = INSTR (kommando$,"/?") '! Option /? 

20 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 

21 PRINT "CRDEL (c) Born Version 
140% 

22 PRINT 

23 PRINT "Aufruf: CRDEL" 

24 PRINT " oder CRDEL <Quellfile> <Zielfile>" 

25 PRINT 

26 PRINT "Das Programm filtert die harten Returns aus einer 

i 


Textdate 
" 

27 PRINT "Löschen -> J eingeben, sonst eine beliebige Tast 
betätigen 


" 











28 PRINT 
29 SYSTEM 
30 END IF 


| 
! getfile separiert den Dateinamen aus der Kommandozeile 
! Falls ein Name fehlt, würden die Optionen in die jeweilige 
'ı Variable gespeichert. Dies ist abgefangen, da Optionen mit 
! /.. beginnen. Dann wird ein Leerstring zurückgegeben 

| 


31 ptri® =1 'ı Parameter holen 


32 CALL getfile(ptr%, kommando$,infilename$) '! Name 
Eingabedatei 

33 INCR ptr% '! Anfang next 
token 

34 CALL getfile(ptr%, kommando$,outfilename$) '! Name 
Ausgabedatei 

35 END IF 

36 IF infilename$s = "" THEN '! Leereingabe ? 

37 PRINT "Der Name der Eingabedatei fehlt" 

38 END 

39 END IF 

40 IF outfilename$ = "" THEN '! Leereingabe ? 

41 PRINT "Der Name der Ausgabedatei fehlt" 

42 END 

43 END IF 
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44 IF outfilename$ = infilename$ THEN 'ı Namen gleich ? 

45 PRINT "Eingabedetei = Ausgabedatei nicht erlaubt" 

46 END 

47 END IF 

48 OPEN infilename$ FOR INPUT AS #ein? 'ı öffne Eingabedatei 
'! Ausgabedatei vorhanden -> prüfe über OPEN inputdatei 

49 ON ERROR GOTO ok 


50 OPEN outfilename$ FOR INPUT AS #aus% '! existiert 
Ausgabedatei% 

51 ON ERROR GOTO fehler 

52 CLOSE #aus% '! nein -> Close 


53 INPUT "Ausgabedatei existiert bereits, überschreiben (J/N) ? 
", zchn$ 

54 PRINT 

55 IF UCASES (zchn$) <> "J" THEN END '! stopp -> sonst 
Datei weg 





56 ok: 

57 OPEN outfilename$ FOR OUTPUT AS #aus% '! Ausgabedatei open 
58 CLS 'ı Clear Screen 

59 PRINT '! Leerzeile 


1 
'ı lese die ersten n Sätze aus der Datei und den Puffer und 


'l zeige sie an 
| 


60 FOR i% = 0 TO %max-2 


61 LINE INPUT #ein%, inlinie$(i%) 'ı ]Jese eine Zeile 

62 PRINT inlinie$ (i%) '! Anzeige auf Screen 
63 IF EOF(ein?) THEN GOTO weiter 

64 zeile% = i% 


65 NEXT i% 


66 weiter: 
er! 
'! Lese weitere Sätze aus der Datei und bearbeite den 
! Puffer, zeige gelesene Sätze an. 
1 


67 INCR zeile% 
68 WHILE (NOT (EOF(ein?))) 


69 lang% = LEN (inlinie$(hilf%)) 'ı Länge Satz ermitteln 

70 y% = csrlin - 1 '! merke Zeile Cursor 

71 LOCATE 2,lang%+2 'l Marke an akt. 

72 PRINT "«; '! Zeile setzen» 73 
zchn$ = INPUTS (1) 'ı lese Taste 

74 LOCATE 2,lang%+2 'ı clear Marke 

75 PRINT " As | M 
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76 
77 
78 
79 
80 
8l 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 


93 


94 
Bild 
95 
96 
97 
98 
99 


100 


101 
102 
103 


104 


105 
106 
zchn$ 
108 
109 


110 
111 
112 
113 
114 
115 
116 
117 
118 
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IF UCASES$S (zchn$) = "J" THEN 
IF lang% > O0 THEN 
IF RIGHT$ (inlinie$ (hilf?) ,1) = "-" THEN 'ı Ende = "-" ? 
IF MID$ (inlinie$ (hilf%) ,lang%-1,1)_ 'ı Ende = " -" 9 
<> "0 THEN KUÖEND.EN NED 
PRINT #aus%, LEFT$ (inlinie$(hilf?%),_ 'ı entferne "-" 
lang% - 1); 
ELSE 
PRINT #aus%, inlinie$ (hilf%);" "; 'ı volle Zeile 
END IF 
ELSE 
PRINT #aus%, inlinie$(hilf%);" "; 'ı volle Zeile 
END IF 
END IF 
ELSE 
PRINT #aus%, inlinie$(hilf%) '! mit RETURN ausgeben 
END IF 
LINE INPUT #ein%, inlinie$(zeile%) 'ı Jese neue Zeile 
LOCATE 25,1 'ıl Cursor an unteres 
PRINT '1 -> Scroll 
LOCATE y®% ‚1 'l restore Cursor 
PRINT inlinie$ (zeile?%) '! Anzeige auf Screen 
zeile% = (zeile% + 1) MOD %max 'ı Adresse berechnen 
hilf% = (hilf% + 1) MOD %max u u 


WEND 


1 


'! bearbeite restlichen Puffer 
"1 


rest% = max - hilf% + zeile% - 2 
FOR i% = 0 TO rest? 
lang% = LEN (inlinie$ (hilf%)) 'ı Länge Satz ermitteln 
y% = csrlin - 1 '! merke Zeile Cursor 
LOCATE 2, lang%+2 '! Marke an akt. 
PRINT "«; 'ı Zeile setzen» 107 
= INPUTS (1) 'ı lese Taste 
LOCATE 2, 1lang%+2 'ı clear Marke 
PRINT " " ; ı ! " 
IF UCASE$ (zchn$) = "J" THEN 
IF lang% > O THEN 
IF RIGHT$ (inlinie$ (hilf%) ,1) = "-" THEN 'ı Ende = "-" ? 
IF MID$ (inlinie$ (hilf%) ‚lang?%-1,1) m Ei 4ENDIE: HE? 
<> " " 'THEN 
PRINT #aus%, LEFT$(inlinie$(hilf?%),_ 'ı entferne "-" 
lang%-1); 
ELSE 
PRINT #aus%, inlinie$ (hilf%);" "; 'ı volle Zeile 
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119 
120 
121 
122 
123 
124 
125 
126 


127 
Bild 
128 
129 
130 
131 
132 


133 
134 
135 
136 


137 





147 


148 
149 
150 
151 
152 
153 
154 


END IF 
ELSE 
PRINT #aus%, inlinie$ (hilf%);" "; 'ı volle Zeile 
END IF 
END IF 
ELSE 
PRINT #aus%, inlinie$(hilf%) '! mit RETURN ausgeben 
END IF 
LOCATE 25,1 'l Cursor an unteres 
PRINT 'ıl -> Scroll 
LOCATE y% ‚1 '! restore Cursor 
PRINT 'ı Leerzeile 
hilf% = (hilf% + 1) MOD %max '! Zeiger erhöhen 
NEXT i% 
CLOSE 
PRINT 
PRINT "CRDEL Ende" 


END 


HH HH 
'# Hilfsroutinen # 
HEHE HH 


fehler: 


IF ERR = 53 THEN 
PRINT "Die Datei ";infilename$;" existiert nicht" 


PRINT "Fehler : ";ERR;" unbekannt" 
PRINT "Programmabbruch" 


END 'ı MSDOS Exit 
RETURN 


SUB getfile (ptr%,text$, result$) 


'! separiere Filename aus Eingabetext (text$) 
'ı ptr% -> Anfang Filename, result$ = Filename 


LOCAL tmp?% 


CALL skipblank (ptr?%,text$) 'ı entferne Blanks 
tmp% = INSTR (ptr%,text$," ") '! suche Separator 

IF tmp% = 0 THEN 

PRINT "Fehler: kein Fileseparator" '! kein Endeseparator 
END 'ı Exit 

END IF 

IF MID$ (text$,ptr%,1) = "/" THEN 'l Optionen eingegeben 
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155 results = "" 'ı Leerstring 

156 ELSE 

157 result$ = MID$ (text$,ptr%,tmp%-ptr?%) 'ı Filename 

158 ptr% = tmp% 'ı korrigiere ptr% 
159 END IF 


160 END SUB 
161 SUB skipblank (ptr%,text$) 


DT a a a a a a N EN a a a a a a a a nn 


'ı entferne führende Leerzeichen aus text$ 


162 LOCAL lang%, zchn$ 


163 lang% = LEN (text$) 'ı Stringlänge 

164 zchn$ = MID$ (text$,ptr%,1) '! separiere Zeichen 
165 WHILE (zchn$ = " ") AND (ptr% <= lang?) '! Zeichen <> blank 
166 INCR ptr% 

167 zchn$ = MID$ (text$,ptr%,1) '! separiere Zeichen 
168 WEND 


169 END SUB 


Ixkkk* Programm Ende **+**** 


Listing 3.5: CRDEL.BAS 


PSCRIPT: Textausgabe für PostScript-Drucker 


Ausgehend von dem bereits vorgestellten Programm PSLIST möchte ich 
nun noch ein etwas universelleres Werkzeug vorstellen, welches beliebige 
Textdateien für die Ausgabe auf PostScript-Geräten aufbereitet. 


Der Entwurf 


Auf Grund der Vorarbeiten an den bisherigen Programmen läßt sich der 
Entwurf auf einige wenige Einzelheiten beschränken. Die restlichen 
Überlegungen und Techniken können direkt aus PSLIST übernommen 
werden. 


Die Benutzeroberfläche soll sich an den Möglichkeiten von PSLIST 
anlehnen. Wird das Programm mit der Eingabe: 


PSCRIPT 


aufgerufen, erscheint die Kopfmeldung: 


PSCRIPT (ce) Born Version 1.0 


Optionen [ /L=10 linker Rand /R=500 rechter Rand ] 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


PowerBasic-Programmierhandbuch 161 


[ /0=700 oberer Rand /U=100 unterer Rand ] 
[ /F=10 Fontgröße/Punkt /H Kopf 1. Seite ] 


File 
Optionen : 


Bild 3.11: Kopfmeldung des Programmes PSCRIPT 


Im Gegensatz zum Programm PSLIST sind die Optionen etwas verändert. 
Die Zeilennumerierung wird bei Textdateien in der Regel nicht mehr 
benötigt. Was aber erwünscht ist, ist ein Kopftext auf der ersten Seite, der 
den Dateinamen und das aktuelle Erstellungsdatum definiert. Diese 
Option soll sich jedoch zu- und abschalten lassen. Die Einstellungen für 
die Ränder können aus PSLIST übernommen werden. 


Als Dateiname darf jeder gültige MS-DOS-Dateiname, einschließlich 
Laufwerks- und Pfadbezeichnung, verwendet werden. Die Abfrage der 
Optionen soll nach der Eingabe des Dateinamens erfolgen. Die 
Kopfmeldung zeigt die möglichen Eingaben für diese Optionen. Die 
Optionen dürfen zwar in beliebiger Reihenfolge eingegeben werden, das 
Format ist jedoch gemäß obigen Angaben aufzubauen. Jede Option 
beginnt mit dem Zeichen »/« gefolgt von einem Großbuchstaben. Bei 
numerischen Werten ist zwischen Zahl und Buchstabe ein 
Gleichheitszeichen erforderlich. Die Optionen sind durch ein Leerzeichen 
zu trennen. Hier sind einige gültige Optionen: 

/H 

/L=10 /O=655 /R=550 /U-50 /H 

/L=5 

/H /R=600 


Fehlerhafte Eingaben (z.B. linker Rand größer als rechter Rand etc.) sind 
durch das Programm abzufangen. In diesem Fall erscheint die 
Fehlermeldung: 


Bitte Randeinstellung neu setzen 


Wird kein Dateiname eingegeben, bricht das Programm mit folgender 
Meldung ab: 


Der Dateiname fehlt 


Existiert die angegebene Datei nicht, endet das Programm ebenfalls mit 
der Meldung: 


Die Datei <Name> existiert nicht 
Wird eine Datei gefunden, beginnt die Ausgabe mit dem Hinweis: 
Die Datei <Name> wird bearbeitet 


Name steht dabei für den eingegebenen Dateinamen. Nach Beendigung der 
Ausgabe in die PostScript-Datei erscheint die Meldung: 


Die <Datei> wurde im aktuellen Verzeichnis erzeugt 


Sie können dann die Datei per COPY oder PRINT auf dem PostScript-Gerät 
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ausgeben. 


Die eigentliche Ausgabe des Textes entspricht der gewohnten Form, 
lediglich die Schriftgröße läßt sich durch die Option /F in Schritten zu 1 
Punkt variieren. Sinnvolle Angaben dürften dabei zwischen 8 Punkt und 
16 Punkt liegen. Bei zu großen Schrifttypen passen die Ausgabezeilen 
nicht mehr auf eine Seite. Allerdings existiert in PSCRIPT keine 
Begrenzung der Zeilenlänge auf 75 Zeichen. Vielmehr werden alle 
Formatierungen innerhalb des PostScript-Programmes (HEADER.PS) 
vorgenommen. 


Alternativ lassen sich Dateiname und Optionen mit in der Kommandozeile 
angeben: 


PSCRIPT <Filename> <Optionen> 


Dies ist insbesondere in Batchdateien interessant. Weiterhin kann eine 
Online-Hilfe mit dem folgenden Kommando aufgerufen werden: 


PSCRIPT /? 


Auf dem Bildschirm erscheint folgende Meldung: 


PSCRIPT (ce) Born Version 1.0 
Aufruf: PSCRIPT <Filename> <Optionen> 
Optionen : 


/L=10 setzt den linken Rand in Punkt 
/R=500 setzt den rechten Rand 

/0=700 setzt den oberen Rand 

/U=100 setzt den unteren Rand 

/F=10 setzt die Fontgröße in Punkt 
/H Header 1. Seite 





Das Programm gibt ein Listing als PostScript-Datei 

mit der Extension xxxx.PS aus, wobei xxxx dem File- 
namen entspricht. Die Ergebnisdatei kann dann auf einem 
PostScript-Gerät ausgegeben werden. 


Bild 3.12: Online-Hilfe von PSCRIPT 


Anschließend endet das Programm und der DOS-Prompt erscheint wieder. 


Die Implementierung 


Bezüglich der Implementierung bietet es sich an, möglichst viele Teile von 
PSLIST übernehmen. Bild 3.13 zeigt das Moduldiagramm des 
Programmes. 
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Quell- 


parameter 


PS - 2 


fehler 





HEADER.PS 


y 


Bild 3.13: Moduldiagramm von PSCRIPT.BAS 











Gerade die Formatierung der Ausgaben ist über die Datei HEADER.PS 
bereits gelöst. Bei der Implementierung möchte ich noch einen Schritt 
weitergehen. In HEADER.PS sind alle Routinen zum Zeilenumbruch und 
zum Seitenwechsel enthalten. Damit braucht lediglich der Text für die 
Ausgabe aufbereitet werden ((text....) printline). 


Die gegenwärtige Implementierung sieht allerdings vor, daß nach jeder 
Zeile, die durch printline ausgegeben wird, ein Zeilenvorschub ausgeführt 
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wird. Wird bei der Ausgabe der Zeile der rechte Rand erreicht, beginnt das 
PostScript-Programm automatisch eine neue Zeile. Soll ein fortlaufender 
Text ausgegeben werden, sind die Zeilenumbrüche am Ende einer jeden 
Ausgabezeile störend. Dies kann aber leicht durch Modifikation der Datei 
HEADER.PS erreicht werden. Nachfolgend ist der Inhalt der Datei 
HEADER.PS zu sehen. Es muß lediglich der crlf-Aufruf in der Prozedur 
printline entfernt werden (die betreffende Zeile ist markiert). 


%---> File: HEADER.PS (c) G. Born 


Q 


%---> Definitionen für Textausgabe mit Umlauten 
%--> definiere Konstanten 
/LW { CH CH 3 div add } def % Zeilenabstand 


/Blank ( ) def % Leerzeichen 


N 


/Buff 12 dict def % lokales Dictionary 


/endtest % Test ob Seitenende erreicht ist 


{ 


dup % Y duplizieren 
BM lt % unterer Rand? 
showpage % ja-> neue Seite 
pop TM % neue Y-Koordinate 
} if % auf 1. Zeile 
} def 
/newpage % Seitenvorschub 
showpage % Seite wechseln 
LM TM moveto % Startpunkt neue Seite 
} def 
/erl£ % Zeilenvorschub 
LM % linker Rand 
currentpoint LW sub % y-dy 
exch pop % X entfernen 
endtest % neue Seite? 
moveto % Zeilenanfang 
} def 
/printword % Ausgabe eines Wortes 
dup % String duplizieren 
stringwidth pop % Länge Text 
currentpoint % aktuelle Ausgabe 
pop add LM add % Ausgabelänge berech. 
RM gt 
( crlf£ } if % Zeilenvorschub 
show % Text ausgeben 
( ) show % Leerzeichen 
} def 
/printline % Ausgabe eines Satzes 


{ 


» 


Beginn der Prozedur 
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{ % Beginn der Schleife 
Blank search % separiere Wort 
{ printword pop } % Ausgabe Wort 
{ printword exit } % Ausgabe Resttext 


ifelse 
} loop % loop alle Worte 
<### die folgende Zeile muß eventuell entfernt werden 
crl£ % Zeilenvorschub ##HH#HH#HH# 
sHHH 
} def 
/Redefine % Umcodierung Font 


ON 


{ Buff begin lokales Dictionary 
/NCodeName exch def % Hilfsvariable 
/NFontName exch def 
/AFontName exch def 


/AFontDict % suche alten Font 
AFontName findfont def 


/NeuFont AFontDict % neue Dictionary schaffen 
maxlength dict def 


ON 


AFontDict kopiere alten Font 
{ exch dup /FID ne % bis auf FID-Feld 

{ dup /Encoding eq 

{ exch dup length array copy 

NeuFont 3 1 roll put 

} 

{ exch NeuFont 3 1 roll put 

} ifelse 


} { pop pop } ifelse 
} forall 


NeuFont 
/FontName NFontName put % setze neuen Namen 
NCodeName aload pop Werte laden 
NCodeName length 2 idiv und eintragen 
{ NeuFont /Encoding get 

3 1 roll put 


ON 


a 


} repeat 
NFontName NeuFont % definiere neuen Font 
definefont pop 
end 
} def % Ende der Prozedur /Redefine 


%--> Hauptprogramm 


/Umlaute 

[ 8#201 /udieresis 
8#204 /adieresis 
8#216 /Adieresis 
8#224 /odieresis 
8#231 /Odieresis 


» 


Feld mit Umlautdefinitionen 


D 


D 
O: 0: D: 0: & 


D 


» 


D 
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8#232 /Udieresis 
8#341 /germandbls 
] def 


D 
w Ch 


D 


%--> Umcodierung des Fonts 
%--> Hier ist der Name des Basis-Fonts einzutragen: 
%--> z.B. /Times-Roman oder /AvantGarde oder /Courier 


/Courier 
<%--> Umdefinition des Urfonts in Font mit Umlauten 
/Neu-Font-Deutsch % neuer Font 


Umlaute Redefine 


/Neu-Font-Deutsch findfont % Font selektieren 


CH scalefont setfont % und initialisieren 
LM TM moveto % Anfangspunkt 
%----> Hier schließt sich der auszugebende Text an 


Listing 3.6: HEADER.PS 


Sollen am Ende eines Absatzes eine oder mehrere Leerzeilen eingefügt 
werden, sind eine betreffende Anzahl von crlf-Anweisungen in die 
Ausgabedatei einzufügen. Dann sorgt HEADER.PS dafür, daß die 
Zeilenumbrüche erfolgen: 


(Dies ist das Ende eines Absatzes, an dem) printline 
(ein Zeilenvorschub erfolgen soll) printline 

erl£f 

erlf 


Alle anderen Vorgaben bleiben dabei erhalten. 
Hauptmodul 


Im Hauptprogramm werden die Eingabeparameter eingelesen und 
decodiert. Dann öffnet das Programm die Eingabe- und Ausgabedatei. Der 
Aufruf des Unterprogrammes vorspann sorgt dafür, daß Teil 1 der 
Ausgabedatei generiert wird. In einer Schleife wird dann die Eingabedatei 
zeilenweise gelesen und direkt in die Ausgabedatei übertragen. Auf eine 
Formatierung der einzelnen Seiten kann verzichtet werden, da diese 
Aufgabe direkt im PostScript-Programm erfolgt. Lediglich bei gesetzter /H- 
Option wird der Dateiname und das aktuelle Datum auf der ersten Seite 
vor dem eigentlichen Text als PostScript-Text ausgegeben. 


vorspann 


Das Programm generiert zuerst die Konstanten für die Abmessungen des 
Druckbereiches in der Ausgabedatei. Dann wird noch die Fontgröße 
definiert. Anschließend kopiert vorspann den Inhalt der Datei HEADER.PS 
in die Ausgabedatei. Daran schließt sich später das auszugebende Listing 
an. 
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Erweiterungsvorschläge 


Das Programm überschreibt die Ausgabedatei ohne Warnung. Hier könnte 
eine entsprechende Bedienerabfrage eingefügt werden. Weiterhin könnte 
der Fontname selektierbar sein. Hier muß lediglich eine Option eingelesen 
und die entsprechende Definition an den Anfang der PostScript-Datei 
geschrieben werden. Ein weiterer Punkt ist die Verfeinerung des 
Zeilenumbruchs, wie er bereits oben beschrieben wurde. Zur Zeit erfolgt 
nach jeder Ausgabezeile ein Zeilenwechsel. 


REF /2=50 (ce) Born Version 1.0 
Datei : pscript.bas Datum : 05-17-1992 Seite : 1 
Zeile Anweisung 


V KAKKAKKAKHKHKKK KHK KHK TH KH KH KH KH HK KH KK KH KK KH KK TH TH KH KH KK KK TH KH KH KK KH KK KH HK AH U KU 





' File : PSCRIPT.BAS 

' Vers. : 1.0 

' Last Edit 729%. 14592 

' Autor : G. Born 

' File I/O : INPUT, OUTPUT, FILE, PRINTER 

' Progr. Spr.: POWERBASIC 

! "Betr... SyS:- »: 'DOS: 2.1. =-5.,0 

' Funktion: Das Programm dient zur Ausgabe von Textdateien 


! auf PostScript-Geräten. Der Text wird in eine 
! Datei mit der Extension .PS konvertiert. Es 

' lassen sich beliebige Textdateien mit diesem 
' Programm aufbereiten. Die Steueranweisungen 

j für den Interpreter (Seitenumbruch, Randein- 
Y stellung, etc.) werden in PSCRIPT direkt und 
' über die Datei HEADER.PS generiert. 


' Aufruf: PSCRIPT Filename <Optionen> 
ı Optionen: /H Kopftext auf 1. Seite 
! /L=xx linker Rand in Punkt [ 10] 
! /R=xx rechter Rand [ 500] 
! /0=xx oberer Rand [ 700] 
[l 
[l 


! /U=xx unterer Rand 100] 
s /F=xx Fontgröße in Punkt 10] 
I 

j Die Werte in [] geben die Standardeinstellung 


! wieder. Wird das Programm ohne Parameter aufge- 
' rufen, sind Dateiname und Optionen explizit ab- 
' zufragen. Mit dem Aufruf: 


> PSCRIPT /? 
' wird ein Hilfsbildschirm ausgegeben. 


TV KAKKAKKKKHKKHKK KK KH IK KH KH KH KH KH KK KK KH KK KH KK KK KH TH TH KH KK KK TH KH KK KH HK AH KH KH AH HK KU &„ 


' Variable definieren 


1 rechts% = 500 'ı rechter Rand (Punkt) 
2 links% = 10 'ı linker Rand (Punkt) 
3 oben% = 700 '!l oberer Rand (Punkt) 
4 unten% = 100 '! unterer Rand (Punkt) 
5 font? = 10 'ı Fontgröße (Punkt) 
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6 indatei?% = 1 'ı Dateinummer Eingabe 
7 indatei2% = 3 'ı Dateinummer Header 
8 outdatei% = 2 'ı Dateinummer Ausgabe 
9 errornames = "" '! Dateiname bei 
Fehlern 
10 ON ERROR GOTO fehler '! Fehlerausgang 
HH HH HH HH HH HH HH HHHHEHHHEH 
'# Hauptprogramm # 
HH HH HH HH HH HH HH HHHHEHHHEH 
11 kommando$ = COMMANDS 'ı Parameter ? 
12 IF LEN (kommando$) = 0 THEN 'ı User Mode ? 
13 CLS 'ı clear Screen 
14 PRINT '"PSCRIPT (ce) Born 
Version 1.0" 
15 PRINT 
16 PRINT "Optionen [ /L=10 linker Rand /R=500 rechter 
Rand 
1." 
17 PRINT " [ /0=700 oberer Rand /U=100 unterer 
Rand 
1." 
18 PRINT " [ /F=10 Fontgröße/Punkt /H Kopf 1. 
Seite 
ı" 
19 PRINT 
20 INPUT "File : ", £ilename$ 
21 INPUT "Optionen : ",options$ 
22 PRINT 
23 ELSE 
24 ptr% = INSTR (kommando$,"/?") '! Option /? 
25 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 
26 PRINT "PSCRIPT (ce) Born Version 1.0" 
27 PRINT 
28 PRINT "Aufruf: PSCRIPT <Filename> <Optionen>" 
29 PRINT 
30 PRINT "Optionen :" 
SH PRINT 
32 PRINT " /L=10 setzt den linken Rand in Punkt" 
33 PRINT " /R=500 setzt den rechten Rand" 
34 PRINT " /O0=700 setzt den oberen Rand" 
35 PRINT " /U=100 setzt den unteren Rand" 
36 PRINT " /F=10 setzt die Fontgröße in Punkt" 
37 PRINT " /H Kopfzeile auf 1. Seite" 
38 PRINT 
39 PRINT "Das Programm wandelt einen Textfile in eine 
PostScript -" 
40 PRINT "Datei mit der Extension xxxx.PS um, wobei xxxx dem 
File-" 
al PRINT "namen entspricht. Die Ergebnisdatei kann dann auf 
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einem" 

42 PRINT "PostScript-Gerät ausgegeben werden." 
Zeile Anweisung 

43 PRINT 

44 SYSTEM 

45 END IF 

46 III] 'ı Kommando Mode 

47 ptr% = INSTR (kommando$,"/") '!l Optionen ? 

48 IF ptr% = 0 THEN 

49 filename$ = kommando$ '! nur Filename 

50 ELSE 

51 filename$ = LEFT$ (kommando$,ptr% -1) '! Filename separieren 

52 options$ = MIDS$S (kommando$,ptr%) '! Optionen separieren 

53 END IF 

54 END IF 

55 GOSUB parameter 'ı Optionen decodieren 

56 IF (rechts% < links%) or (oben% < unten‘) THEN '! sinnlose 

57 PRINT 'ı Einstellung 

58 PRINT "Bitte Randeinstellung neu setzen" 'ı Fehlerexit 

59 END 'ı Exit 

60 END IF 

61 IF filename$ = "" THEN '! Leereingabe ? 

62 PRINT 

63 PRINT "Der Dateiname fehlt" 

64 END 'ı Exit 

65 END IF 

66 ptr% = INSTR(filename$,".") 'ı hat Datei eine 
Extension? 

67 IF ptr% > O0 THEN 

68 outfile$ = LEFT$(filename$,ptr%) + "PS" '! Filename ohne 
Extension 

69 ELSE 

70 outfile$ = filename$ + ".Ps" '!l Extension anhängen 

71 END IF 

' prüfe ob Datei vorhanden, nein -> exit 

72 errorname$ = filename$ 

73 OPEN filename$ FOR INPUT AS #indatei% '! Öffne Eingabedatei 

74 OPEN outfile$ FOR OUTPUT AS #outdatei% '! Öffne Ausgabedatei 

75 PRINT 

76 PRINT "Die Datei: ";filename$;" wird bearbeitet" 

77 GOSUB vorspann 'ı Vorspann generieren 

78 WHILE NOT (EOF (indatei?)) '! Datei sequentiell 
lesen 

79 LINE INPUT #indatei%, linie$ 'ı lese Zeile 
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80 '! scan line auf (..) und wandle in \( oder \) um 
81 liniel$ = "" 
82 FOR i% = 1 to LEN(linie$) 
83 zchn$ = MIDS$ (linie$,i%,1l) 
84 IF (zchn$ = "(") or (zchn$ = ")") THEN 
85 liniel$ = liniel$ + "\" 
86 END IF 
87 liniel$ = liniel$ + zchn$ 
88 NEXT i% 
89 PRINT #outdatei%, "(";liniel$;") printline" '! schreibe 
Zeile 
90 WEND 
91 PRINT #outdatei%, "showpage" 'ı Abschluß PS-Datei 
92 PRINT #outdatei%, "% END of File" 
93 CLOSE #indatei% '! Datei schließen 
94 CLOSE #outdatei% 'ı Datei schließen 
95 PRINT 
96 PRINT "Die Datei: ";filename$;" wurde im aktuellen 
Verzeichnis erzeugt" 
97 END 
HH HH HH HH HH HH HH HH HHHHHEHHHEH 
'# Hilfsroutinen # 
HH HH HH HH HH HH HH HH HH HHHHEHHHEH 
98 fehler: 
N a a a rn a a a a a a a re a Ve En aaa 
'ı Fehlerbehandlung in PSCRIPT 
Va a u N a El u a a aa a ap ea Zar GER Va ME a Es HE A 1 a EB an a an Ei 
99 IF ERR = 53 THEN 
100 PRINT "Die Datei ";errorname$;" existiert nicht" 
101 ELSE 
102 PRINT "Fehler : ";ERR;" unbekannt" 
103 PRINT "Programmabbruch" 
104 END IF 
105 END 'ı MSDOS Exit 
106 RETURN 
107 parameter: 
Ma ee ea en a a Bang a a a he nn a a a a a a a a ee ae a per ET ah a a ee u aa 
'! Decodiere die Eingabeoptionen 
Mn u ea ng Mühle wa ar er Fre Na! nd ka ee Tim Kate IT van A, kart LK ma pas), Ga ee ee a TE oe a An ba fie De at man A Ta ru Gt RT a nf 
108 options$ = UCASES$ (options$) 
109 ptr% = INSTR (options$,"/L=") 
110 IF ptr% > 0 THEN CALL getval (links%) '! linker Rand 
111 ptr% = INSTR (options$,"/R=") 
112 IF ptr% > 0 THEN CALL getval (rechts?) '! rechter Rand 
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113 ptr% = INSTR (options$,"/O=") 
114 IF ptr% > 0 THEN CALL getval (oben?) 'ı oberer Rand 
115 ptr% = INSTR (options$,"/U=") 
116 IF ptr% > 0 THEN CALL getval (unten?) 'ı unterer Rand 
117 ptr% = INSTR (options$,"/F=") 
118 IF ptr% > 0 THEN CALL getval (font%) 'ı Fontgröße 
119 RETURN 
120 SUB getval (wert?) 
We a rn a N re a a a a a a ae na EEE ER Ha a a Br ni at re Ta a N ar an ya ei rd ee a en a ze 
'! Decodiere den Eingabestring in eine Zahl 
Me ah a ES Ta a a ET a nr he el a a re N a Te a et a a Ya a 1 Ar a a a et A En van 
121 SHARED options$, ptr% 
122 LOCAL i% 
123 ptr% = ptr% + 3 'ı ptr hinter /x= 
124 i® =1 
125 WHILE ((ptr%+i%) =< LEN (options$)) and 
(MID$ (options$,ptr%+i%,1) < 
>" ") 
126 i% = i% +1 'ı Ziffernzahl + 1 
127 WEND 
128 wert? = VAL (MID$ (options$,ptr%,i?)) 'ı decodiere die Zahl 
129 END SUB 
130 vorspann: 
| EEE EEE ER EEE ERITREA EEE EEE RES WERE ESRNR EEE 
'!l generiere Vorspann mit PostScript-Anweisungen 
Va a a a a a a u ae a ae a a Sa Feng ze ki Ba aa Den a Ze st a a a ha Mn ae FE Sach Pe EL u Ya Ban ae CE 
131 errorname$ = "HEADER.PS" 
132 OPEN "HEADER.PS" FOR INPUT AS #indatei2% 'ı Header öffnen 
133 PRINT "Generiere Fileheader" 
134 PRINT #outdatei%, "%%!PS-Adobe-2.0 EPSF-1.2" 
135 PRINT #outdatei%, "%%3Title: ",filename$ 
136 PRINT #outdatei%, "%%Creator: PSCRIPT 1.0 (c) Born G." 
137 PRINT #outdatei%, "%%EndComments" 
138 PRINT #outdatei%, "" 
139 PRINT #outdatei%, "%%BeginSetup" 
140 PRINT #outdatei%, "/LM ";links%;" def % linker Rand" 
141 PRINT #outdatei%, "/RM ";rechts%;" def % rechter Rand" 
142 PRINT #outdatei%, "/TM ";oben%;" def % oberer Rand" 
143 PRINT #outdatei%, "/BM ";unten%;" def % unterer Rand" 
144 PRINT #outdatei%, "/CH ";£font%;" def % Fontgröße" 
145 PRINT #outdatei?%, "" 
146 WHILE NOT (EOF (indatei2%)) '! Datei sequentiell 
lesen 
147 LINE INPUT #indatei2%, linies$ 'ı lese Zeile 
148 PRINT #outdatei%, linie$ 'ı schreibe 
149 WEND 
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150 PRINT #outdatei%, "%3EndSetup" 
151 PRINT #outdatei%, "" 


152 CLOSE #indatei2% 





'! generiere Kopfzeile, falls Option /H gesetzt 

153 IF (INSTR (options$,"/H") <> 0) THEN 

154 PRINT #outdatei%, "(PSCRIPT ", options$; 
SPACES$ (27); 

155 PRINT #outdatei?%, "(c) Born Version 1.0) printline" 

156 PRINT #outdatei%, "(Datei : ";filename$;" Datum 
";DATES; 

157 PRINT #outdatei?%, ") printline" 

158 PRINT #outdatei?%, 

159 END IF 

160 RETURN 

161 END 


Listing 3.7: PSCRIPT.BAS 
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4 Werkzeuge für den Umgang mit dem PC 


Dieses Kapitel beschäftigt sich mit Hilfsmitteln zur Unterstützung des 
Betriebssystemes MS-DOS. Ein Tool zur Ausgabe beliebiger Dateien im 
Hexformat gehört ebenso dazu, wie ein Utility zur Textsuche in EXE- und 
COM-Dateien. Beginnen wir mit dem ersten Programm dieser Reihe. 


CALC: Rechnen in verschiedenen Zahlensystemen 


Bei der Entwicklung von Programmen fallen häufig kleinere Berechnungen 
an. Dies gilt sowohl bei der maschinennahen Programmierung in 
Assembler, wo Adreßberechnungen im Dezimal- und Hexadezimalsystem 
durchzuführen sind, als auch für die Programmierung in Hochsprachen. 
Einige Softwarepakete (z.B. grafische Benutzeroberflächen) bieten zwar 
auch kleine »Rechner« die meist per Maus zu bedienen sind. Neben der 
Tatsache, daß dies recht umständlich ist, fehlt häufig die Möglichkeit, Ein- 
und Ausgaben in verschiedenen Zahlensystemen 
vorzunehmen.»Wünschenswert ist es, zur Programmentwicklung einen 
Rechner zu haben, der ein gemischte Eingabe arithmetischer Ausdrücke 
in verschiedenen Zahlenformaten erlaubt. Die Eingaben sollten 
zweckmäßigerweise per Tastatur erfolgen. Für professionelle 
Softwareentwickler werden entsprechende Geräte im Handel angeboten. 
Aus Kostengründen bietet es sich aber an, den eigenen Personalcomputer 
mit einem kleinen Programm auszustatten, welches genau diese 
Funktionen übernimmt. Nachfolgend wird eine solche Lösung in 
PowerBASIC entwickelt. 


Die Spezifikation 


Zuerst sollen die Anforderungen hinsichtlich Funktion und 
Bedieneroberfläche spezifiziert werden. Das Programm muß folgende 
Aufgaben erfüllen: 


e Eingabemöglichkeiten für Zahlen im Dezimal, Hexadezimal- und 
Binärsystem. 


« Verarbeitung gemischter arithmetischer Ausdrücke. 
e Ausführung der Grundrechenarten (+ -*/). 


« Darstellung des Ergebnisses in den verschiedenen 
Zahlensystemen. 


«e Anzeige der invertierten Zahlenwerte. 


e Anzeige des jeweiligen ASCII-Äquivalents. 
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e Anzeige des eingegebenen Ausdrucks. 
«e Anzeige von Fehlermeldungen. 


Die Eingabe gemischter Zahlen im Dezimal-, Binär- und 
Hexadezimalsystem kommt in der Praxis immer wieder vor. Weiterhin sind 
öfter Ausdrücke zu berechnen, wobei einzelne Zahlen durchaus 
verschiedene Darstellungen haben können. Die Kennzeichnung der 
Zahlenbasis soll (abweichend von der Notation in PowerBASIC) durch 
einen nachgestellten Buchstaben erfolgen: 


B Binärwert (z.B. 1010B) 
T Dezimalwert (z.B. 20T) 
H Hexadezimalwert (z.B. 10H) 


Dies kommt der normalen Schreibweise entgegen, wobei bei 
Dezimalzahlen auf die Angabe der Zahlenbasis (T) verzichtet werden kann. 
Wird nur ein Wert eingegeben, erscheint das Ergebnis in der Darstellung 
der jeweils anderen Zahlensysteme. Bei den vier Grundrechenarten gilt die 
Regel »Punktrechnung geht vor Strichrechnung« Die Möglichkeit der 
Klammerung von Ausdrücken wird in vorliegendem Programm nicht 
implementiert.»Da der Bildschirm über mehrere Zeilen zu je 80 Spalten 
verfügt, kann die Darstellung der Ergebnisse recht ausführlich erfolgen. 
Einmal läßt sich eine Darstellung des Ergebnisses in den verschiedenen 
Zahlensystemen nebeneinander erreichen. In einigen Fällen interessiert 
auch die invertierte Darstellung. Diese ist ebenfalls leicht realisierbar. Bei 
Werten zwischen 20H und FFH soll weiterhin das jeweilige ASCH-Zeichen 
eingeblendet werden. Für Kontrollzwecke und bei Fehleingaben ist der 
eingegebene Ausdruck auf den Bildschirm auszugeben. 


Bei der dezimalen Zahlendarstellung gibt der Rechner die Zahlen mit 
einem entsprechenden Vorzeichen aus (-32768 bis 32767). Bei Binär- und 
Hexadezimalzahlen ist dies aber nicht sinnvoll, da hier eigentlich nur die 
interne Darstellung des 16-Bit-Wertes interessiert. Hier wird also auf das 
Vorzeichen verzichtet, was zu einer Anzeige des Ganzzahlenbereichs von O 
. FFFFH führt. Wird beispielsweise ein negativer Wert eingegeben oder 
berechnet, erscheint das Ergebnis in der jeweiligen Repräsentation als 
Hexadezimalzahl. Diese auf den ersten Blick unsinnige Form erweist sich 
bei Adreßberechnungen als vorteilhaft. Bei 16-Bit-Prozessoren (auch der 
8086) reicht der Adreßraum von O bis 64 Kbyte. Beim Überlauf wird 
einfach das führende Bit abgeschnitten und der Rest dargestellt. Die 
Addition von FFFEH + 20H führt dann zum Ergebnis 001FH. Eine Anzeige 
negativer Werte ist hier nutzlos, während sich die Hexzahl direkt 
weiterverwenden läßt. Der negative Wert läßt sich übrigens aus der 
Inversdarstellung durch Addition einer 1 bestimmen, da die 
Inversdarstellung im Einerkomplement erfolgt. Das bedeutet, daß alle Bits 
lediglich invertiert werden. Die Eingabe -10 führt beispielweise zu 
folgenden Anzeige: 
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Ergebnis invertiert 
DEZ. -9 9 
HEX. FFF6 0009 


Das Programm baut nach dem Start eine Maske auf (Bild 4.1), in der 
sowohl die Eingaben erfolgen als auch die Ergebnisse angezeigt werden. 


DEZ - HEX - BIN - RECHNER 
Ergebnis invertiert 
+----------- + +---------- + 

DEZ XXXXXXXXXX XXXXXXXX 
+----------- + +---------- + 
HEX XXXXXXXXXX XXXXXXXX 
+----------- + +---------- + 
BIN XXXXXXXXXX XXXXXXXX 
+----------- + +---------- + 
ASCII x Eingabe xxxxx 


Die Eingabe: EXIT beendet das Programm 


Eingabe : ? 


Bild 4.1: Ergebnisdarstellung des Rechners 


Die Benutzereingaben erfolgen im untersten Feld (Eingabe : ?). Die 
Eingabezeile ist durch Betätigung der Eingabetaste abzuschließen, 
woraufhin die Ergebnisse am Bildschirm angezeigt werden. Folgende 
Terme werden z.B. als gültig akzeptiert: 


100H + 12T * 20H + +14 
10T - 101B / 2 + 110B --3T 
15H / 3T + 3 * 5H + -101B 


Nach der Betätigung der EingabeTaste wird das Eingabefeld in der 
untersten Zeile gelöscht, um neue Benutzereingaben zu ermöglichen. Vor 
der Betätigung der Eingabetaste lassen sich die PowerBASIC- 
Editiermöglichkeiten nutzen. Neben der Anzeige der Ergebnisse erscheint 
aber der eingegebene Text zusätzlich im Feld »Eingabe« Wird ein Fehler in 
der Eingabezeile erkannt, erscheint in der Eingabezeile eine entsprechende 
Fehlermeldung. Zusätzlich markiert CALC die Fehlerstelle mit dem 
Zeichen *. 


ASCII x Eingabe 30 + 15 - D 


A 


Eingabe : ungültige Ziffer, bitte die Return-Taste betätigen 


Nachdem die Fehlermeldung mit der Eingabetaste quittiert wurde, steht 
der Rechner für neue Eingaben zur Verfügung. Insgesamt sind folgende 
Fehlermeldungen (Tabelle 4.1) möglich: 
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l +ungültige Zifferefalsche Ziffer innerhalb der ® 


. *Zahl z.B. 1013B e 
2° eunbelegt . 
3 + ungültiger Operator *Operator nicht + - * / . 


Tabelle 4.1: Fehlermeldung des Rechners 


Das Programm CALC läßt sich durch Eingabe des Wortes ExıT beenden. 
Damit soll die Beschreibung der Bedieneroberfläche abgeschlossen 
werden. 





Der Entwurf 


Nachdem die Ein-/Ausgaben festgelegt sind, soll noch kurz auf einige 
spezielle Überlegungen hinsichtlich der Realisierung einiger Funktionen 
eingegangen werden. 


Einmal stellt sich die Frage, wie die unterschiedlichen Zahlensysteme 
behandelt werden. Es wird davon ausgegangen, daß der Rechner intern im 
binären Zahlenformat arbeitet. Die Auflösung soll auf 16 Bit (2-Byte- 
Integer-Werte) begrenzt bleiben. Damit besteht eigentlich nur noch die 
Aufgabe, die Eingaben jeweils in die interne Darstellung des Rechners 
umzuwandeln und das Ergebnis in Form der verschiedenen Zahlenformate 
auf dem Bildschirm anzuzeigen. Um eine Dezimalzahl einzulesen, existiert 
die Basic-Funktion VAL(. Problematisch ist es jedoch, wenn die 
Zeichenkette ungültige Ziffern enthält. In diesem Fall tritt ein 
Laufzeitfehler auf, der zwar durch die Routine fehler abgefangen wird. 
Aber das Programm bricht nach Ausgabe der Basic-Fehlermeldung ab, da 
leider keine Möglichkeit besteht, an die Unterbrechungsstelle im 
Programm zurückzukehren (ein Fehler kann ja an vielen Stellen auftreten). 
Zur Decodierung einer Dezimalzahl wird deshalb der Eingabetext Zeichen 
für Zeichen separiert. Jedes dieser Zeichen entspricht dann einer 
Dezimalziffer. Vor der Decodierung läßt sich nun prüfen, ob das Zeichen 
im Bereich von O bis 9 liegt. Andernfalls kann die Decodierung mit einer 
internen Fehlermeldung abgebrochen werden. Im Modul decl wird genau 
diese Technik angewandt, um einen ASCII-Text in eine Dezimalzahl zu 
konvertieren. Analog kann bei der Konvertierung von Binär- und 
Hexadezimalzahlen verfahren werden. 
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Es soll aber noch auf ein Problem eingegangen werden, welches bei der 
Implementierung in PowerBASIC auftritt. Der Rechner soll intern mit 2- 
Byte-Integer-Werten arbeiten. Nun werden diese Zahlen aber mit einem 
Vorzeichen versehen, so daß der Darstellungsbereich das Intervall -32768 
bis +32767 umfaßt. Es können also auch nur Zahlen in diesem 
Wertebereich verarbeitet werden. Wichtig ist bei der Berechnung des 
Ergebnisses, daß kein Überlauf auftritt, da sonst das Programm mit einem 
Laufzeitfehler (Overflow) abbricht. Bei der Decodierung der Dezimalzahlen 
verträgt PowerBASIC diese Behandlung. Aber bei der Wandlung von 
Hexzeichen in eine Hexzahl treten Probleme auf. Normalerweise läßt sich 
eine Hexzahl gemäß folgendem Algorithmus bestimmen: 


Bild 4.2: Wandlung einer Hexadezimalzahl 


Es werden also die einzelnen Hexzeichen gelesen, in den äquivalenten 
Hexwert umgerechnet und zum Ergebnis addiert. Der Ergebniswert ist vor 
jeder Addition mit dem Wert 16 zu multiplizieren. Damit wird lediglich eine 
Verschiebung um eine Stelle nach links erreicht (OFFH * 16 = OFFOH). In 
Power BASIC führt dieses Verfahren aber bei Hexzahlen größer 7FFFH zu 
einem Overflowfehler. Der Grund liegt in der vorzeichenbehafteten 
Darstellung der 2-Byte-Integer-Zahlen. Falls der Wert 8000H eingelesen 
werden soll, liegt folgende Situation vor: 


1 Ziffer 8 Wert -> 8H 

2 Ziffer 0 Wert -> 80H 

3 Ziffer 0 Wert -> 800H 

4 Ziffer 0 Wert -> 8000H -> Overflow 


Bei den ersten drei Ziffern liegt das Ergebnis im positiven Zahlenbereich. 
Sobald jedoch die Multiplikation 800H * 16 durchgeführt wird, tritt ein 
Laufzeitfehler auf. Das Ergebnis der Multiplikation 800H * 16 ist in der 
Hexdarstellung der Wert 8000H, was normalerweise keine Probleme 
bereitet. In der Dezimalnotation tritt jedoch ein Vorzeichenwechsel auf: 


800H 
800H * 16 = 8000H 


+2048T 
-32768 


In der Dezimaldarstellung liegt plötzlich eine negative Zahl vor. Da eine 
Multiplikation zweier positiver Zahlen keine negatives Ergebnis erzeugt, 
nimmt PowerBASIC einen numerischen Überlauf an und bricht mit einem 
Laufzeitfehler ab. Diese Eigenart muß natürlich abgefangen werden. 
Hierzu wird vor Addition der vierten Ziffer geprüft, ob das Ergebnis größer 
7FFH ist. In diesem Fall wird vor der Multiplikation das oberste Bit 
gelöscht. Dann ist die Multiplikation und Addition auszuführen. Dies 
verhindert einen Überlauf, bringt aber ein falsches Ergebnis. Also ist zum 
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Schluß noch das oberste Bit zu setzen. Dieser Trick wird im Modul hexl 
angewandt, da andere Lösungen nicht zufriedenstellend arbeiten. 


Der nächste Punkt gilt der Frage, wie arithmetische Ausdrücke 
auszuwerten sind. Diese können sowohl beliebige Zahlenformate, als auch 
ein beliebige Schachtelung der Operatoren (*/+-) aufweisen. Es muß also 
ein Analyseprogramm erstellt werden, welches einmal die Zahlen mit den 
jeweiligen Zahlenbasen sowie die Operatoren erkennt. Eine separierte Zahl 
läßt sich dann in die interne Darstellung konvertieren. Auch das 
Erkennen der Operatoren ist nicht sonderlich schwierig. Problematischer 
ist aber dann die Auswertung des Ausdruckes. Da bei der Eingabe die 
übliche Schreibweise benutzt wird (auf eine umgekehrte polnische 
Notation wurde verzichtet), 1Aßt sich der Ausdruck nicht einfach von links 
nach rechts auswerten: 


13 + 15H * 11B + 18 / 2 


Es gilt nach wie vor, daß die Punktrechnung vor der Strichrechnung 
durchzuführen ist. Tritt bei der Auswertung eine Multiplikation oder 
Division auf, muß erst das Zwischenergebnis bestimmt werden. Eine 
Lösungsmöglichkeit besteht darin, den Algorithmus zur Auswertung des 
Ausdrucks rekursiv zu formulieren. Sobald eine Punktrechnung auftritt, 
wird die Rekursion gestartet, um den Teilausdruck auszuwerten. Aus 
Aufwandsgründen wurde aber in vorliegendem Fall auf diese Lösung 
verzichtet. Vielmehr kommt ein einfacherer Ansatz zum Tragen. Dieser 
beruht auf der Überlegung, daß alle Zahlen (Operanden) und die 
Operatoren in Felder eingelesen werden. Für die Zahlen existiert ein 
eigenes Feld, in dem alle Wert nacheinander abgelegt werden. Die 
Operatoren werden ebenfalls decodiert und in einem zweiten Feld abgelegt. 
Nach der Analyse liegt der obige Ausdruck in folgender Form vor: 


13 + 15H * 11B = 18 / 2 
-> wert (1) + wert (2) * wert (3) - wert (4) / wert (5) 


Nun ist bei der Auflösung einfach die Punktrechnung vorzuziehen, d.h. die 
Multiplikation (wert(2) * wert(3) sowie die Division (wert(4) / wert(5)) sind 
zuerst auszuführen. Die Ergebnisse werden dann im niedrigen 
Feldelement abgespeichert: 


Der Ausdruck reduziert sich dann auf die Form: 


-> wert (1) + wert (2) --- - wert (4) --- 


Die Einträge für die Operatoren (* /) sowie die Operatoren (wert(3), wert(5)) 
werden gelöscht. Da nun nur noch Strichrechnung vorkommt, ist der 
verbleibende Ausdruck von links nach rechts auszuwerten. Gelöschte 
Einträge sind zu überlesen. Die Lösung ist sicherlich nicht die eleganteste, 
erfüllt ihren Zweck aber voll und ganz. Damit soll der Entwurf 
abgeschlossen werden. 
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Die Implementierung 


Das Programm gliedert sich in mehrere Module, deren 
Zusammenschaltung nachfolgendem Hierarchiediagramm (Bild 4.3) zu 


entnehmen ist. 
kopf 
skipblank 





vo] 


P4 getpara 
dec1 
getval < bin 


hex1 
Es getop 


basex 
display 


Bild 4.3: Modulhierarchie des Rechners 

















fehler 











Damit kann die Implementierung nach der üblichen Methode erfolgen. 
Das Hauptprogramm 


Nach dem Definitionsteil für die Variablen schließt sich das 
Hauptprogramm (main) an. Neben der Ausgabe der statischen 
Bildschirmmaske mittels des Unterprogrammes kopf beginnt eine 
Endlosschleife. In dieser werden die Werte eingelesen sowie die Ergebnisse 
berechnet (decode) und ausgegeben (display). Werden Eingabefehler 
erkannt, sind diese über das Unterprogramm fehler auszugeben. Solche 
Fehler lassen sich durch den Benutzer quittieren, während Laufzeitfehler 
des PowerBASIC-Systems über das Modul fehlerl abgefangen sind. 
Laufzeitfehler führen allerdings zu einem Programmabbruch. Mit 
Strg+Untbr läßt sich das Programm abbrechen. Die restlichen Aufgaben 
werden von den Hilfsmodulen bearbeitet. 
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fehler 


Bei Fehleingaben übernimmt das Modul fehler die Ausgabe einer 
entsprechenden Fehlermeldung. Die Meldungen stehen im Textfeld 
errtxt$(), wobei die übergebene Variable errx% die Fehlerart anzeigt. Das 
Modul gibt gleichzeitig den eingegeben Ausdruck aus und markiert die 
fehlerhafte Stelle durch das Zeichen *. Die Position wird in etwa durch die 
Variable errptr% angegeben. Durch drücken eine beliebigen Taste wird der 
Fehler quittiert und eine neue Eingabe ist möglich. Die Fehlertexte wurden 
bereits vorgestellt. 


fehleri 


Dieses Modul wird bei PowerBASIC-Laufzeitfehlern aktiviert und gibt eine 
Basic-Fehlernummer aus. Dann bricht das Programm ab. 


kopf 


Hier erfolgt die Ausgabe des statischen Maskenteils. Die Koordinaten sind 
in den Konstanten %tx und %ty abgelegt. 


decode 


Dieses Modul ist für die Auswertung eines Ausdruckes zuständig. In einer 
Schleife werden alle Eingabewerte (getvall und die Operatoren (getop) 
gelesen. Dann erfolgt die Berechnung des Ausdruckes. Hierbei ist die 
Priorität der Grundrechenarten zu berücksichtigen. Es wird dabei die im 
Abschnitt über den Programmentwurf diskutierte Technik verwendet. Das 
Feld wertx%(0 enthält alle eingegebenen Zahlen. Das Ergebnis einer 
Operation auf zwei Zahlen wird in das obere Feldelement 
zurückgespeichert. 


wert (1) * wert(2) -> wert (2) / wert (3) -> wert (3) 


Dadurch läßt sich die Rechnung wesentlich vereinfachen. Die 
Entscheidung, ob eine Punktrechnung vorliegt, kann durch Auswertung 
der jeweiligen Feldvariable opc%() erfolgen. In einem zweiten Schritt wird 
die Strichrechnung dann nachgezogen. Operationen, die Punktrechnung 
erfordern, sind dabei zu übergehen. Am Ende der Auswertung liegt das 
Ergebnis in der Variablen wert% vor. 


getval 


Dieses Modul separiert aus dem Eingabetext die durch ptr% adressierte 
Zahl und ermittelt über die Unterprogramme basex, decl, hexl und binl 
sowohl die Zahlenbasis als auch den Wert der Zahl. 


getop 


Analog dem Programm getval dient dieses Modul zu Analyse des 
Eingabetextes. Es liest aber keine Zahlen, sondern die durch ptr% 
adressierten Operatoren, und gibt das Ergebnis in opcode% zurück. 
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display 


Dieses Modul übernimmt die Ausgabe der berechneten Ergebnisse. Die 
Ausgabekoordinaten sind durch Konstanten definiert. Die Variable wert% 
enthält das Originalergebnis. In nwert% steht die inverse Darstellung. Die 
Ausgabe der Dezimalzahlen erfolgt mit einer einfachen PRINT-Anweisung, 
während für Hex- und Binärzahlen die Funktionen HEX$() und BIN$() 
verwendet werden. Leider kann hier kein Format angegeben werden. Dies 
führt aber zu einer Darstellung mit Leerzeichen an den unbelegten Stellen. 
Deshalb werden diese Leerstellen durch die nachfolgende Anweisung mit 
Nullen belegt: 


PRINT STRING$ (x - LEN(res$) ,"0") ;res$ 


Bei Werten im Bereich 20H bis FFH wird die entsprechende ASCII- 
Darstellung mit eingeblendet. Die Binärziffern werden in Gruppen zu je 8 
Bit dargestellt, um die Lesbarkeit zu erhöhen. 


basex 


In diesem Unterprogramm wird das letzte Zeichen einer separierten Zahl 
untersucht. Abhängig von diesem Zeichen wird die Zahlenbasis (hex, bin, 
dez) für die nachfolgende Decodierung festgelegt. 


hex1, binl, dezi 


Alle drei Module besitzen die Aufgabe, den markierten String in eine Zahl 
zu wandeln. Dabei ist jedes der Module für eine bestimmte Zahlenbasis 
zuständig. Falsche Zeichen sind zu erkennen und mit einer 
Fehlermeldung abzuweisen. Die Tricks bei der Decodierung der 
Hexadezimalzahlen wurden bereits beim Entwurf besprochen. 


Damit sind die wesentlichen Module des Programmes CALC vorgestellt. 
Einzelheiten können dem Listing entnommen werden. 


Erweiterungsvorschläge 


Das Programm erlaubt derzeit keine Eingaben von Ausdrücken, die 
Klammern enthalten. Eine Erweiterung in dieser Hinsicht wäre denkbar. 
Die interne Darstellung mit 32-Bit-Zahlen ist ebenfalls möglich. 


xREF /2=50 (ce) Born Version 1.0 
Datei : calc.bas Datum : 05-31-1992 Seite : 1 
Zeile Anweisung 

IKAKKKKKKKKKHKTKH KK KK HK KK KHK KH KH TH KH KH KH KH HK TH KK TH KH TH TH KH KH KK KH K AH KK KH AK KH AK KH HK A KH KU 

'ı File : CALC.BAS 

'! Vers. : 1.0 

'ı Last Edit ; 7.3.92 

'ı Autor : G. Born 

'ı Files : INPUT, OUTPUT 

'ı Progr. Spr.: POWER Basic 

'! Betr. Sys. : DOS 2.1 - 5.0 
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'ı Funktion: Das Programm simuliert einen Hex-Dez-Bin- 
Rechner. 
"1 Die Eingaben werden übernommen, decodiert und 
das 
"1 Ergebnis wird im Bildschirmspeicher jeweils 
normal 
Dat und invertiert als Dezimal-, Hexadezimal- und 
"1 Binärzahl angezeigt. Zusätzlich werden ASCII - 
"1! Darstellung und Eingabe eingeblendet. 
IKAKKKKKKKKKHKKH KK KK TH KH TK HK KK HK KH TH KH KH KH AK KH KK TH KH KK TH AK KH KH KK TK KH HK KH KH KH TH KK KH AH KK A KH A KH ÜUO 
'! Variable definieren 
'ı globale Konstanten 
1 %true = -1: %false = 0 
2 &hex = 1: %bin = 2: %dec = 3 '! code für 
Zahlenbasis 
3 %add = 1: %sub = 2: mul = 3: div = 4'! code für 
Operationen 
'ı globale Variablen 
4 %maxentry = 10 
5 DIM wertx% (1:%maxentry) 'ı Speicher für 10 
Parameter 
6 DIM opc% (1:%maxentry) "] u "10 
Operatoren 
7 wert% = 0 'ı Ergebnis 
8 count% = O0 'ı Zahl der Parameter 
9 errx% = 0 '! Fehlernummer 
10 errptr% = 0 '! ptr auf Fehler im 
Text 
'ı definiere die Koordinaten der Ein- / Ausgabefelder 
11 %yl = 8: %y2 = 10: %y3 = 12: %y4 = 14 '! y Koordinaten 
12 %y5 = 19 
13 %x1 = 12: %x2 = 42: %x3 = 28: %x4 = 15 '! x Koordinaten 
14 %tx1 = 12: %tyl = 2 'ı Textkoordinaten 
15 %tx2 = 17: %tx3 =45: Sty2 =5 
16 *8tx4 = 5: 3tx5 18 
17 lang% = 0 'ı Länge Eingabetext 
18 text$ = "" 'ı Eingabetext 
19 DIM errtxt$ (1:4) 'ı Fehlertexte 
20 errtxt$(1) = "ungültige Ziffer" 
21 errtxt$(2) = "---------------- " 
22 errtxt$(3) = "ungültiger Operator" 
23 errtxt$(4) = "ungültige Zahlenbasis" 
HH HB HH HH HH HH H HH HH RHHH HH HH HH HH HH HH HHEHHHHEH 
'# Hauptprogramm # 
HH HEHE HH HH HH HH HH HRHHH HH HH HH HH HH HHHHHHHHEH 
24 ON ERROR GOTO fehlerl 
25 CALL kopf 'ı Bildschirmmaske ausgeben 
26 WHILE %true 'ı Endlosschleife 
27 errx% = 0 '! clear Fehlervariable 
28 LOCATE %y5,%x4,1 '! Auf Eingabefeld 
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50 
51 
52 
53 
54 
55 
56 


57 
58 
59 
60 


61 
62 
63 


64 
65 
66 
67 


68 


INPUT "";text$ 


'ı Test auf EXIT-Befehl 
IF 
END 
END IF 


LOCATE %y5,%x4,1 
PRINT SPACES$ (30) 


lang% = LEN(text$) 
CALL decode (text$) 
IF errx% = 0 THEN 
CALL display (wert?) 
ELSE 
CALL fehler (errx%) 
END IF 
wert% = 0 
FOR a% = 1 to %maxentry 
wertx% (a%) = 0 
NEXT a% 
WEND 
END 


(INSTR (UCASE$ (text$) ,"EXIT") 
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'ı Eingabe lesen und decod. 


<> 0) THEN 


'ı clear Eingabefeld 
'ı Stringlänge 
'ı Eingabe decodieren 


'ı Ergebnis ausgeben 


'! Fehlermeldung ausgeben 


'ı clear results 


HH HH HH 
'# Hilfsroutinen # 
HH HH 


SUB kopf 


DE a a a En ae a a an 


CLS 
LOCATE %ty1l1,%tx1,0 
PRINT "DEZ = HEX = 


LOCATE %ty2,%tx2,1 
PRINT "Ergebnis"; 

LOCATE %$ty2,%tx3,0 
PRINT "invertiert"; 


LOCATE %y1-1,%x4-4,0 


PRINT "ÜU---------------- -- 2"; 
PRINT SPACE$ (10); 
PRINT I0U-=2 22222220. 2255 u"; 


LOCATE %y1,%tx4,0 
PRINT "DEZ. 


LOCATE %y2-1,%x4-4,0 


PRINT. "A=-===22- 2-2 2-22 22-55 ., 
PRINT SPACES$ (10); 
BRINT-NRE-s 22a eisen .n, 





LOCATE %y2,%tx4,0 


|"; SPACES$ (18) ; "|"; 
PRINT SPACE$ (10) ;"|";SPACES (18) 


'! setze Cursor 
BIN - Rechner" 


'! zeichne Rahmen 


." 1. 
D D 
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PRINT "HEX. |";SPACE$ (18) ;"|"; 
PRINT SPACE$ (10) ;"|";spack$ (18) ; "|"; 


LOCATE %y3-1,%x4-4,0 


PRINT: WA-=22 = 222-2 22222 -02- .n., 
PRINT SPACE$ (10); 
BRINTIR-222222 2-2 Is .. 


LOCATE %y3,%tx4,0 


PRINT "BIN. |";SPAcE$ (18) ;"|"; 
PRINT SPACE$ (10) ;"|";SPACES$ (18) ; "|"; 
LOCATE %y4-1,%x4-4,0 

PRINT "Ä---------------- -- U"; 

PRINT SPACE$ (10); 

PRINT "Ä---------------- -- U"; 


LOCATE %y4,%tx4,0 

PRINT "ASCII"; 

LOCATE %y5,%tx4,0 

PRINT "Eingabe :"; 

LOCATE %y5-2,%tx4,0 

PRINT "Die Eingabe: EXIT beendet das Programm"; 
LOCATE %y4,%tx5,0 

PRINT "Eingabe :"; 





END SUB 


SUB decode (text$) 


SHARED lang%, count?%, errx%, wert? 
SHARED wertx%(), opc?%() 


ptr® = 1: errx% = 0: count?% = 1 'ı init lokale variable 
WHILE ptr% <= lang% 'l scan String 
I 
I} 





CALL getval (ptr%,wertx?% (count?) ) 'ı ermittle 1. Parameter 
IF errx% > 0 THEN EXIT SUB 'ı Error Exit 
IF wertx% (count%) = 0 THEN GOTO ready '! WHILE EXIT 

I} 

I} 

I} 

I} 





CALL getop (ptr?%,opc% (count?) ) '! ermittle 1. Operator 
IF errx% > 0 THEN EXIT SUB 'ı Error Exit 
INCR ptr% 'ı hinter Operator 
INCR count% 'ı nächste Zelle 
WEND 


DECR count? 'ı Zahl der Werte 
ready: 


'ı nur 1 Parameter gefunden, oder Leereingabe ? 
IF count% < 2 THEN 
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108 wert% = wertx%(1) 
109 EXIT SUB 
110 END IF 
'ı Punktrechnung "*" "/" vorziehen !!! 
111 FOR 1% = 1 TO count%-1 
112 IF opc% (1%) = <mul THEN 
113 wertx?% (1%+1) = wertx% (1%) * wertx% (1%+1) 
114 ELSE 
115 IF opc% (1%) = %div THEN 
116 wertx% (1%+1) = INT(wertx% (1%) / wertx%(1%+1)) 
117 END IF 
118 END IF 
119 NEXT 1% 
'ı Strichrechnung "+" "-" nachziehen !!! 
120 FOR 1% = 1 TO count%-1 
121 WHILE (opc% (1%) = %mul) OR (opc% (1%) = %div) '! skipA*B 
Haas 
122 INCR 1% 
123 WEND 
124 j% = 1%+1: flag% = %false 'ı clear gefunden 
125 WHILE (opc% (j%) = %mul) OR (opc%(j%) = %div) '! skipA+B 
er & 
126 INCR 73% flag% = $true '! setze gefunden 
12% WEND 
128 IF opc% (1%) = %add THEN 
129 wertx% (j%) = wertx% (1%) + wertx%(j%) 
130 ELSE 
181 IF opc% (1%) = %sub THEN 
132 wertx% (j%) = wertx% (1%) - wertx%(j%) 
133 END IF 
134 END IF 
135 IF £flag% THEN 1% = j$-1 
136 NEXT 1% 
' FOR n% = 1 TO count? 
' PRINT "n= ";n%;" wert ";wertx% (n?%) ;" opc "; opc%(n%) 
' NEXT n% 
137 wert? = wertx% (count?) 'ı Endergebnis 
138 END SUB 
139 SUB getval (ptr?%, wert?) 
INT 2er 22a ei aa da ade Bazar Brest add 
'ı lese eine Zahl ein und decodiere sie 
Va a a NE a a un a a En an en Be a ae A an na ae 
140 SHARED text$, errx%, count%, lang%, vorz% 
141 LOCAL tmp%, zchn$, basis%, first%, last? 
142 vorz% = 1 tmp% = 0 'ı init Hilfsvariablen 
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'! suche Anfang und Ende der Zahl 


143 CALL skipblank 


Leerzeichen 


(ptr%,text$) 


'ı Vorzeichen bearbeiten 


144 zchn$ = MID$ 


145 IF (zchn$ = 
146 vorz% = -1 


147 INCR ptr% 
148 ELSE 


149 IF (zchn$ = 
150 INCR ptr? 


151 END IF 
152 END IF 


153 zchn$ = MIDS$S 
154 first% = ptr?% 


'ı suche Ende der Zahl = " ";"+";"-"; 


(text$,ptr%,1) 


-") THEN 


"+") 'THEN 


(text$,ptr%,1) 


155 WHILE (INSTR(" +-*/",zchn$) = 0) 


156 
157 INCR ptr% 


158 zchn$ = MIDS 


159 WEND 


AND ptr?% <= lang? 


(text$,ptr%,1) 


'ı merke Ende der Zahl 
160 IF ptr% < lang% THEN 


161 last% = ptr% 


162 ELSE 


za 


163 last% = lang% 


164 END IF 


'ı decodiere Zahlenbasis 
165 zchn$ = UCASE$ (MID$S (text$,last%,1)) 


166 CALL basex 


(basis%, zchn$, last?) 


167 IF errx% > 0 THEN EXIT SUB 


168 SELECT CASE basis? 


169 CASE %hex 
170 CALL hex1 


171 CASE %bin 
172 CALL binl 


173 CASE %dec 
174 CALL decıi 


175 END SELECT 


176 END SUB 


(£first%,last%,wert?) 


(first%,last%,wert?) 


(first%,last%,wert?) 


177 SUB getop (ptr?,opcode?) 


skip führende 


hole Zeichen 


negative Zahl 


Vorz. überlesen 


hole Zeichen 
merke Anfang Zahl 


" nm." " 
& D / 


hole nächstes Zeichen 
hole Zeichen 


auf letzte Ziffer 


auf Textende 


hole Zeichen 


decodiere Basis 


error exit 


decodiere Zahl 


Hexzahl 


Binärzahl 


Dezimalzahl 
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'!ı ermittle operator (+ - * /) 

Va a 
178 SHARED errx%, errptr?, text$, lang% 
179 LOCAL zchn$, tmp% 
180 CALL skipblank (ptr?%,text$) 'ı überlese Leerzeichen 
181 IF ptr% >= lang% THEN 
182 opcode% = 0 'ı nichts gefunden 
183 EXIT SUB 
184 END IF 
185 zchn$ = MID$ (text$,ptr%,1) '! hole Zeichen 
186 tmp% = INSTR ("+-*/",zchn$) '! decodiere Operator 
187 SELECT CASE tmp% '! Zuweisung Opcode 
188 CASE 1 
189 opcode% = %add 'ı Addition 
190 CASE 2 
191 opcode% = %sub 'ı Subtraktion 
192 CASE 3 
193 opcode% = mul '! Multiplikation 
194 CASE 4 
195 opcode% = %div 'ı Division 
196 CASE ELSE 
197 errx% = 3 'ı ungültiger Operator 
198 errptr% = ptr? '! Zeiger setzen 
199 opcode% = 0 
200 END SELECT 
201 END SUB 
202 SUB display (wert?) 


203 
204 


205 


206 
207 
208 
209 
210 
211 


a ee EN 


LOCAL nwert?%, res$ 
SHARED text$ 


nwert% = (NOT wert?) '! Complement 
'ı Ausgabe der Werte in DEZ HEX BIN 
LOCATE %y1,%x1+12,0 


PRINT USING "######"; wert% 'ı Dezimalzahl 
LOCATE %y1,%x2+12,0 

PRINT USING "######"; nwert%; 'ı Einerkomplement 
LOCATE %y2,%x1+14,0 

res$ = HEX$ (wert?) '!ı Hexausgabe mit 
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224 
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230 
231 
232 
233 
234 
235 


236 


237 


238 
239 
240 
241 
242 


243 


244 
245 


246 


ziffer 


247 





248 
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PRINT STRING$ (4-LEN (res$) ,"0");res$ '! führend. Nullen 


LOCATE %y2,%x2+14,0 

res$ = HEX$ (nwert%) '! Hexausgabe 
PRINT STRING$ (4-LEN (res$) ,"0") ;res$ 

LOCATE %y3,%x1+1,0 








res$ = BIN$ (wert%) 'ı Binärausgabe mit 
res$ = STRING$ (16-LEN(res$) ,"0") + res$ '! führ. Nullen 
PRINT MID$S (res$,1,8) ;":";MID$ (res$,9) 

LOCATE %y3,%x2+1,1 

res$ = BIN$ (nwert?%) 'ı Binärausgabe mit 
res$ = STRING$ (16-LEN(res$) ,"0") + res$ '! führ. Nullen 
PRINT MID$ (res$,1,8) ;":";MID$ (res$,9) 

LOCATE %y4,%x1,1 

PRINT " " 


IF (wert% >= &H20) AND (wert% < 256) THEN 
LOCATE %y4,%x1,1 





PRINT CHRS$S (wert% MOD 256); 'ı ASCII Wert 
ELSE 

LOCATE %y4,%x1,1 

PRINT " " 'ı ASCII Feld 
END IF 


LOCATE %y4,%x3,1 
PRINT text$; 
PRINT SPACE$ (30-LEN (text$)); 'ı clear Restfeld 


END SUB 


SUB skipblank (ptr?%,text$) 


'ı zähle führende Leerzeichen in einer Zeichenkette 
'l text$ = Zeichenkette, zeiger% = Zeiger in Kette 





SHARED lang% 


WHILE (ptr% =< lang%) and (MID$ (text$,ptr%,1) = "") 
INCR ptr% 

WEND 

END SUB 


SUB basex (basis%, zchn$, last?) 


'ı decodieren der Zahlenbasis 
'ı "Hy" basis = 1, "B" basis = 2, "T" basis = 3 


LOCAL tmp?% 
SHARED text$, errx%, errptr% 


DECR last% '! Zeiger auf letzte 


tmp% = INSTR("HBT", zchn$) 'ı decodiere Zeichen 


SELECT CASE tmp% 
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249 CASE 1 
250 basis% = %$hex 'ı Hexzahl 


251 CASE 2 
252 basis% = %bin 'ı Binärzahl 


253 CASE 3 
254 basis% = %dec '! Dezimalzahl 


255 CASE ELSE 


256 IF (zchn$ >= "0") AND (zchn$ =< "9") THEN 'ı Ziffer = 0 
9 

257 INCR last% 

258 basis% = %dec '! Dezimalzahl 

259 ELSE 

260 errx3% = 4 'ı 1 Fehler 

261 errptr% = last? 'ı Fehler Exit 


262 END IF 
263 END SELECT 


264 END SUB 


265 SUB hex1 (first%,1last?%,wert?) 


266 SHARED text$, vorz%, errx%, errptr% 
267 LOCAL tmp%, b% 


268 wert? = 0 'ı init 

269 FOR b% = first% TO last% 'ı alle Ziffern 

270 zchn$ = UCASES$ (MID$ (text$,b%,1)) '! hole Ziffer 

271 tmp% = INSTR("0123456789ABCDEF",zchn$) '! decodiere Ziffer 
272 IF tmp% = 0 THEN '! Wert gefunden ? 

273 errx% = 1: errptr% = b% 'ı Nein -> Fehler 

274 EXIT SUB 


275 END IF 


I 
! Achtung: Power Basic kann bei I*2 keine Zahlen größer 

! 7FFFH verarbeiten (8000H führt zu Overflow). Deshalb 

! wird das oberste Bit bei Zahlen > 8000H gelöscht und 

! zum Abschluß wieder gesetzt (sorry). 

I 

276 IF (b% = 4) AND wert% > &H7FF THEN '!! Teste auf Overflow 
277 wert% = wert% AND &H7FF 'ı clear oberes Bit 
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278 wert? = wert? * 16 + (tmp% - 1) '! Ziffer auf Zahl 
addieren 

279 wert% = wert? OR &H8000 '! setze oberes Bit 

280 ELSE 

281 wert% = wert? * 16 + (tmp% - 1) '! Ziffer auf Zahl 
addieren 

282 END IF 

283 wert% = wert? * vorz?% 


284 NEXT b% 


285 END SUB 


286 SUB binl (first%,1last%,wert?) 


287 SHARED text$, vorz%, errx%, errptr% 
288 LOCAL tmp%, b% 


289 wert% = 0 1 ine 
290 FOR b% = first? TO last% 'ı alle Ziffern 
291 zchn$ = MID$ (text$,b%,1) 'ı lese Ziffer 


'ı gültige Ziffer ???? 
292 IF zchn$ < "0" OR zchn$ > "1" THEN 


293 errx% = 1 '! Fehlerausgang 

294 errptr% = b% 

295 ELSE 

296 tmp% = VAL(zchn$) '! Wert der Ziffer 

297 wert% = wert? * 2 + tmp% * vorz% '! Ziffer auf Zahl 
addieren 


298 END IF 
299 NEXT b% 


300 END SUB 


301 SUB deci (first%,1last?%,wert?) 


302 SHARED text$, vorz%, errx%, errptr% 
303 LOCAL tmp%, b% 


304 wert?% = 0 “N NEE 


305 FOR b% = first? TO last% 'ı alle Ziffern 
306 zchn$ MID$ (text$,b%,1) 'ı hole Ziffer 
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'ı Achtung VAL funktioniert nicht, da 0 bei Fehler 


geliefert wird 


307 tmp% = INSTR ("0123456789",zchn$) '! Wert der Ziffer 
308 tmp® = tmp% - 1 
'ı gültige Ziffer ???? 
309 IF tmp% < 0 THEN 
310 errx% = 1 '! Fehlerexit 
311 errptr% = b% 
312 ELSE 
313 wert% = wert? * 10 + (tmp% * vorz%) '! Ziffer auf Zahl 
addieren 
314 END IF 
315 NEXT b% 
316 END SUB 
317 fehlert: 
!l----- -------- -- -- ---- -- ---- -- -- -- - - - - - - - - - - - - - - - - - - - - - - -- 
'ı Abfangroutine für Power Basic Fehler 
Ve u a a En rt a a un Van da an tm u a Ya u mn u Fi Ki 
318 IF ERR = 6 THEN 
319 LOCATE %y4, %x3,0 
320 PRINT "Overflow Error"; '! Fehlermeldung 
321 ELSE 
322 PRINT "Fehler : ";ERR; 
323 END IF 
324 END 
325 RETURN 
326 SUB fehler (fehlernr%) 


SHARED text$, errtxt$() 


327 

328 LOCATE %y4,%x3,0 

329 PRINT text$; 'ı display Eingabe 

330 PRINT SPACES$S (30-LEN (text$)); 'ı lösche Restfeld 

331 LOCATE (%y4+1%), (%x3+2+errptr?%),O 

332 PRINT "*"; 'ı Fehlerstelle 
markieren 

333 LOCATE %y5,%x4,1 

334 PRINT errtxt$ (fehlernr%); '! Fehlermeldung 
ausgeben 

335 INPUT ", bitte die Return Taste betätigen ", text$ 

336 LOCATE %y5,%x4,0 

337 PRINT SPACES$S (60) 'ı clear Meldung 

338 LOCATE (%y4+1), ($x3+2+errptr?) 

339 PRINT " " iO eJear 7 
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340 END SUB 


'xk** Programm Ende **%** 


Listing 4.1: CALC.BAS 


DUMP: Dateiausgabe im Hexformat 


Wer sich unter MS-DOS den Inhalt bestimmter Dateien anschauen 
möchte, erlebt manchmal einige Überraschungen. Textdateien lassen sich 
mit den Kommandos COPY, LIST oder PRINT ausgeben. Aber bei COM- 
und EXE-Dateien klappt dies nicht mehr. Auf dem Bildschirm erscheinen 
merkwürdige Zeichen, die keinen Sinn ergeben. Ähnliches tritt bei allen 
Dateien auf, die kein ASCII-Format enthalten. Es gibt für Insider zwar 
einen Ausweg über DEBUG, aber dies ist mit einigen Tücken verbunden. 
Am Markt angebotene Zusatztools erlauben ebenfalls die Anzeige von 
Dateien im Hexmode, kosten aber Geld und lohnen nicht immer die 
Anschaffung. Nachfolgend wird deshalb eine entsprechende Lösung in 
PowerBASIC vorgestellt. 


Die Anforderungen 


Beginnen wir zunächst mit der Beschreibung der Programm Ein- 
/Ausgabemeldungen. Es soll der Inhalt beliebiger Dateien auf dem 
Bildschirm ausgeben werden. Geeignet ist für diese Zwecke die 
Darstellung im Hexadezimalformat, wobei jeweils 16 Bytes pro Zeile 
aufgegeben werden. Vor jeder Zeile sollte eine fortlaufende Adresse stehen. 
Eine ASCI-Darstellung in der Folgezeile ist auch recht nützlich. Nicht 
darstellbare Steuerzeichen werden durch einen Punkt (.« markiert. Damit 
ergibt sich in etwa folgende Anzeige: » 


Adr Werte 


0000 00 01 FF 40 41 53 43 49 49 20 23 23 04 05 FE F7 
B : . @ AS c I 1 # # R 3 
0010: 12: 0A.0D ... =. 


Bild 4.4: DUMP-Ausgabeformat 


Nachfolgend wird eine präzisere Spezifikation der Bedieneroberfläche 
erstellt. Das Programm soll durch die folgende Eingabe gestartet werden: 


DUMP 
In diesem Fall meldet es sich mit dem Kopftext: 


DUMP (ce) Born Version 1.0 
Options [ /wide /More /Print ] 
File : 

Options : 
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Bild 4.5: Kopfanzeige nach dem Programmstart 


Mit der Abfrage »File : wird der Dateiname eingelesen. Generell sind gültige 
Pfadangaben erlaubt. Die Abfrage nach »Options :« erscheint erst nach 
Eingabe des Dateinamens. Wird die Datei nicht gefunden, erscheint die 
Meldung: 


Die Datei <Name> existiert nicht 


und das Programm bricht ab. Andernfalls beginnt das Programm mit der 
Ausgabe der Werte in oben gezeigtem Format. Dieses Format wird 
nachfolgend als Normal-Modus bezeichnet, d.h. die Standardeinstellung 
ist wirksam. 


Bei einem gefüllten Bildschirm wird ein »scroll« ausgeführt. Das Programm 
bricht ab, falls das Dateiende erreicht ist oder falls die Tasten 
STRG+Unterbr gedrückt werden. 


Für Auswertungen der Anzeige ist der »Bildscroll« störend. Weiterhin soll 
eine Ausgabe auf dem Drucker möglich sein. Solche Eigenschaften lassens 
ich über das Optionsfeld selektieren. 


Die More-Option / M 


Die More-Option erlaubt eine seitenorientierte Bildschirmausgabe. Sobald 
die Ausgabe den unteren Bildschirmrand erreicht, unterbricht das 
Programm mit der Meldung: 


Weiter, bitte eine Taste betätigen .. 


Soll die Ausgabe fortgesetzt werden, ist eine Taste zu betätigen. Dann wird 
der Bildschirm gelöscht und die nächste Seite angezeigt. Die Option wird 
mit der Eingabe /M im Optionsfeld aktiviert. Am Bildschirm erscheint 
folgende Ausgabe: 


Adr Werte 
0000 00 01 FF 40 41 53 43 49 49 20 23 23 04 05 FE F7 
@e AS c I I # # 


0010 12 0A OD ..... 


Weiter, bitte eine Taste betätigen ... 


Bild 4.6: Ausgabe mit More-Option im Normal-Modus 


Die More-Option ist nur bei Ausgaben auf dem Bildschirm wirksam. 
Die Wide-Option / W 


Alternativ besteht die Möglichkeit, die ASCI-Darstellung nicht in der 
zweiten Zeile unter den Hexadezimalwerten sondern am Zeilenende 
auszugeben. Die führt zu einer komprimierteren Anzeige. 
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Adr Werte 

0000 00 01 FF 40 41 ..... 20 23 23 04 05 FE F7 ...@ASCII ##.... 
0010 12 OA OD 30 31 ..... 35 36 37 38 39 AO Al ...012 3456789@A 
0020 . 


Bild 4.7: Anzeige mit der Wide-Option 


Diese Option läßt sich mit der More-Option kombinieren: 


Adr Werte 

0000 00 01 FF 40 41 ..... 20 23 23 04 05 FE F7 ...@ASCII ##.... 
0010 12 OA OD 30 31 ..... 35 36 37 38 39 40 Al ...012 3456789@A 
0020 . 


Weiter, bitte eine Taste betätigen .. 


Bild 4.8: Wide- und More-Option kombiniert 


Dann erfolgt die Ausgabe seitenorientiert. 
Die Printer-Option /P 


Weiterhin soll die Möglichkeit bestehen, die Ausgaben vom Bildschirm auf 
den Drucker umzuleiten. Hierfür ist die Printer-Option vorgesehen. Eine 
Kombination mit der Wide-Option ist erlaubt, während die More-Option 
unterdrückt wird. Die Eingabe /P aktiviert die Druckerausgabe. Jede Seite 
beginnt mit einem Kopf, welcher den Dateinamen und die Seitennummer 
enthält. Die Seitenlänge ist fest auf 60 Zeilen pro Seite eingestellt. 
Während des Ausdrucks erscheint auf dem Bildschirm die Meldung: 


Ausgabe auf dem Drucker 


In Bild 4.9 ist ein Auszug eines solchen Protokolls dargestellt. 


File : XXxxxx Seite : 1 

Adr Werte 

0000 00 01 FF AO 41 ...... 20 23 23 04 05 FE F7 ...@ASCII ##.... 
001.0: 2.08: 0D.3031..r1...:2% 35 36 37 38 39 40 41 ...012 3456789@A 
0020 . 


Bild 4.9: Ausgabe auf dem Drucker im Wide-Modus 


Bisher wurden alle Eingaben interaktiv abgefragt. Um DUMP auch in 
Batchdateien verwenden zu können, besteht auch hier die Möglichkeit zur 
Aktivierung des Kommandomodus. Dann können Dateiname und 
eventuelle Optionen direkt in der Kommandozeile eingegeben werden. Der 
Aufruf besitzt folgende Syntax: 


DUMP <Filename> <Optionen> 
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Der Dateiname hinter der Eingabe DUMP gilt dabei als Kriterium zur 
Selektion der Kommandooption. Fehlt der Filename, aber die Optionen 
sind vorhanden, dann bricht das Programm mit einer Fehlermeldung ab. 
Die Optionen sind dagegen nicht zwingend vorgeschrieben. 


In Anlehnung an die bisherigen Module und im Hinblick auf DOS 5.0 läßt 
sich mit: 


DUMP /? 
eine Online-Hilfe abfragen. Auf dem Bildschirm erscheint ein 
entsprechender Hilfstext. 


Zusammenfassung der Eingaben und Optionen 


Nachfolgend ist eine knappe Zusammenstellung der DUMP aller 
Eingabemöglichkeiten und Optionen aufgeführt. 


File:eAbfrage eines gültigen MS-DOS Dateinamens. 
Pfadangaben sind möglich. Ist die Datei nicht 
vorhanden, erscheint die Fehlermeldung: Die 
Datei < > existiert nicht und das Programm 
bricht ab. 


Options:*Abfrage der Optionen zur Ausgabesteuerung. Fehlen 
die Optionen, wird die Standardeinstellung 
(Normal-Modus) übernommen. 


/M®:Die Ausgabe wird im Normal- und Wide-Modus 
unterbrochen, falls der Bildschirm voll ist. 
Nach Quittierung der Meldung Weiter, bitte 


eine Taste betätigen ... wird der Ablauf 
fortgesetzt. Die /P-Option hebt die /M-Option 
auf. 


/WeAusgabe der ASCI-Darstellung in der Ausgabezeile hinter 
den Hexcode. Die Option läßt sich mit der /M- 
oder /P-Option kombinieren. 


/PeHiermit wird die Ausgabe auf den Drucker umgeleitet. 
Eine selektierte More-Option wird aufgehoben, 
während /P und /W kombinierbar sind. Jede 
Druckseite enthält im Kopf Dateiname und 
Seitennummer. 

Die Optionen lassen sich in beliebiger Reihenfolge eingeben, solange als 


erster Parameter der Dateiname mit einem nachfolgenden Leerzeichen 
auftritt. Nachfolgend sind einige gültige Optionen angegeben: 
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/P /W 
/M /W 
/w/P 


Damit soll die Beschreibung der Ein-/Ausgaben abgeschlossen werden. 


Der Entwurf 


Nachdem konkrete Vorstellungen über die Programmfunktionen bestehen, 
beginnen wir mit dem Entwurf. Um einen transparenten Aufbau zu 
erhalten, ist ein modularer Aufbau zu empfehlen. Die nachfolgende 
Abbildung gibt die Struktur der einzelnen Programmodule wieder. 


1. 
= 
Var 


writescr 








® newscreen 





vo | 


Bild 4.10: Modulhierarchie in DUMP.BAS 








Da die Struktur nicht allzu komplex ist, kann auf die Implementierung 
eingegangen werden. 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


PowerBasic-Programmierhandbuch 197 


Die Implementierung 


Durch den modularen Aufbau lassen sich bereits bestehende Module 
übernehmen und die grobe Struktur gleicht den bereits realisierten 
Programmen. Es soll aber noch kurz auf die Frage eingegangen werden, 
wie sich in PowerBASIC beliebige Dateien lesen lassen. Über die normale 
OPEN/INPUT-Sequenz treten Probleme auf, da PowerBASIC die Datei 
dann im ASCII-Modus interpretiert. Der Code 1AH wird in diesem Fall als 
Endekennzeichen verwendet. Falls ein solcher Wert in einer Binärdatei 
auftritt, bricht die INPUT-Funktion an dieser Stelle ab und meldet das 
Dateiende. Damit lassen sich die nachfolgenden Daten nicht mehr lesen. 
Da dies unerwünscht ist, muß die Datei im BINARY-Modus geöffnet 
werden. Dann lassen sich alle Bytes mit GET lesen. Allerdings ist noch zu 
klären, wie sich einzelne Bytes in PowerBASIC einlesen lassen. Der Befehl: 


GET #ein?, 1, code% 


liest ja jeweils einen 2-Byte-Integerwert ein. Aber nicht alle Dateien 
enthalten eine gerade Anzahl von Bytes, womit beim letzten Byte Probleme 
auftreten. Aber mit einem Trick klappt es doch! Wird jeweils ein Zeichen in 
eine ASCI-Variable gelesen: 


GET #ein?, 1, zchn$ 


und anschließend in einen Hexwert konvertiert, dann ist das Problem 
gelöst. 


Das Hauptprogramm 


Nach der Variablendeklaration und dem Einlesen der Parameter 
(wahlweise im Interaktiv- oder Kommandomodus) beginnt die Ausgabe. 
Hierzu wird die Datei byteweise gelesen und die Werte in Blöcken zu 16 
Bytes ausgegeben. Das Feld code%() dient zur Aufnahme der gelesenen 
Werte. Die Variable adr gibt die Anfangsadresse (Offset vom Dateianfang) 
des ersten Byte eines Blockes an. Die Variablen more%, druck% und wide% 
dienen zur Einstellung der jeweiligen Optionen. In maxzeile% findet sich 
die maximale Zeilenzahl pro Seite für die Bildschirm- und 
Druckerausgabe. 


Die Decodierung der Optionen erfolgt mit dem Aufruf getswitch. kopf gibt 
einen Seitenkopf aus, während die Unterprogramme writescr und writeprn 
zur Ausgabe auf Bildschirm und Drucker zuständig sind. Sobald 16 Werte 
gelesen wurden, sind diese Module aufzurufen. Nach erreichen des 
Dateiendes wird die WHILE-Schleife verlassen und eventuell vorliegende 
Werte sind noch auszugeben, bevor die Datei geschlossen und das 
Programm beendet wird. Nachfolgendes Strichdiagramm (Bild 4.11) 
beschreibt den Programmablauf. 
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ıpfmeldung mit Eingaben per Abfrage / Kommandoze 


iteiname und Uptioner eparierer 


grammabbruch mit Fehlermeldung 


f rogramm Ende 
Bild 4.11: Programmablauf im Hauptmodul (main) 


Die Funktionen zur Decodierung der Optionen, Ausgabe der Zeilen etc. 
werden als Unterprogramme realisiert. 


getswitch 


Nach dem Programmstart sind eventuelle Optionen zu decodieren. Dies ist 
Aufgabe von getswitch. Die Analyse erfolgt dadurch, daß der String option$ 
mit Hilfe der INSTR-Funktion durchsucht wird. Falls eine Option 
vorkommt, gibt ptr% die Position im String wieder. Dann ist der Schalter 
zu setzen, andernfalls bleibt die Standardeinstellung erhalten. Drei 
Abfragen reichen zur Decodierung der Optionen. 


newscreen 


Bei der More-Option ist die Ausgabe zu unterbrechen, sobald der untere 
Bildschirmrand erreicht wird. Dann muß die folgende Benutzermeldung 
erscheinen: 


Weiter, bitte ein Taste betätigen ... 

Diese Aufgabe fällt dem Modul newscreen zu. Falls der Wert der Variablen 
scrline% die maximale Zeilenzahl pro Bilschirmseite (%maxscr) übersteigt, 
erscheint diese Meldung. Erst nach Betätigung einer Taste löscht der 
Befehl CLS den Bildschirm und gibt die weitere Bearbeitung frei. 


kopf 


Das Modul gibt den Seitenkopf bei jeder neuen Bildschirm- oder 
Druckerseite aus. Die Variable maxzeile% enthält den Wert, ab dem ein 
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Seitenwechsel erforderlich ist. Dieser Grenzwert wird je nach Option 
dynamisch (Bildschirm, Drucker) angepaßt. 

writescr und writeptr 


Diese Module übernehmen die Ausgabe auf dem Bildschirm (writescr) und 
dem Drucker (writeprn). In jeder Zeile steht am Anfang eine fortlaufende 
Adresse (fünf Hexziffern). Das Strichdiagramm in Bild 4.12 gibt den Ablauf 
wieder. 


4 Seitenende erreicht —> Seitenwechsel und neuer Kopf 
+ Adresse als Hexadezimalzahl ausgeben 
FOR Schleife über n Werte 


Werte als zweiziffrige Hexadezimalzahl ausgeben 


+ 
N 
| FOR Schleife über n Werte 


Werte als ASCII Zeichen darstellen 


+ Zeilenzähler + 1 


RETURN 


Bild 4.12: Ablauf in writescr und writeprn 


Damit wird die Beschreibung der Programme beendet. Einzelheiten sind 
dem Listing zu entnehmen. 


Erweiterungsvorschläge 


Die Ausgabe der Werte erfolgt zur Zeit in Hexadezimalnotation. Es wäre 
möglich, die Ausgaben wahlweise im Dezimal- oder Hexadezimalsystem 
vorzusehen. 


XREF /2=50 (ce) Born Version 1.0 
Datei : dump.bas Datum : 05-31-1992 Seite : 1 
Zeile Anweisung 


TKKKKKAKKKKHKKHTK KK KK HK TH KK KH KH KH KK KH KK KH KK KK KH KK HK TH KK TH KH KH KH KH KH KH KA KU &ÜUO 


Funktion: Das Programm gibt den Inhalt einer Datei in Form 
von Hexzahlen auf den Screen oder Printer aus. 


'ı File : DUMP.BAS 
'ı Vers. » 1.0 
'ı Last Edit 2 1,92 
'ı Autor : G. Born 
'ı Files : INPUT, OUTPUT, FILE 
'ı Progr. Spr.: POWER Basic 
'! Betr. Sys. : DOS 2.1 - 5.0 
| 
| 
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positi 


Mode 


auPrwm HH 


vo 


10 
Screen 
11 
Drucks 
12 
Screen 
13 
Seite 
14 
15 
16 
17 
18 


19 


20 
21 
22 


23 
1.0" 
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ı 


/P erfolgt die Ausgabe auf dem Drucker. Mit /W 
wird der Wide Mode aktiviert, welcher die 
ASCII Zeichen hinter die Hexausgabe 


} 


ı 


'ı Ausgabe : Adr 16 Bytes 

24 D000.2&X XXX EX 220%. XX XX XxX <- Hex Werte 

"1 Ind nd kn ae a a a <- ASCII Werte 

1 Nicht darstellbare Codes werden in der ASCII 

"1 Anzeige durch einen "." markiert. Mit der Option 
1 
1 
1 





oniert. 

"1 Mit /M wird die More Option angewählt, die die 
ug! Ausgabe anhält, sobald der Screen voll ist. 

| 

'ı Aufruf: DUMP interaktiver 


2 DUMP <datei> <options> Kommando Mode 
TARKKKKKKKKK KK KK KK KK KK KK KK KK KK KK KT KT KK KK KK KK KK KK KK KK KK KK KH KK KH KH KU U 


'ı Variable definieren 


<true = &HFFFF: %false = 0 '! Konstante 

ein? = 1 'ı Kanal für I/O 
options$ = "" 'ı Optionen 

more% = %false '! More Option aus 
druck% = %false 'ı keine Printerausgabe 
wide? = %false 'ı Normalmode 

DIM code% (0:15) 'ı Puffer für 16 Bytes 
adr& = 0 'ı Anfangsadresse Zeile 
ptr? = 0 

<%maxscr = 19 'ı Zeilenzahl pro 
<%maxprt = 60 'ı Zeilenzahl pro 

eite 

maxzeile% = %maxscr '! Zeilenzahl für 
zeile?% = 2 '! Zeilennummer der 
seite? = 1 '! Seitennummer 

spacex% = 1 'ı Zwischenraum ASCII 
kommando$ = "" 

filenames$ = "" 'ı Dateiname 

hilf% = 0 


ON ERROR GOTO fehler 


HEHE HEHE HH HH H HH HH RHHHH HH HH HH HH HEHE HH: 
'# Hauptprogramm # 
HH HEHE HH HH HH HH HH HH HH HH HH HH HH HHHHEHHHHEH 


kommando$ = COMMANDS 'ı Parameter ? 
IF LEN (kommando$) = 0 THEN 'ı Interaktiv Mode ? 
CLS 'ı ja -> Clear Screen 
'ı #H#HHH Kopf ausgeben H###### 
PRINT "D UM P (ce) Born Version 
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lese Dateiname 
lese Optionen 


Kommando Mode 
Option /? 
Hilfsbildschirm 

(ce) Born Version 


Optionen: " 


WIDE-Mode mit Hexzahlen und Text in einer Zeile" 


seitenweise Ausgabe am Bildschirm" 


würden die Optionen in die jeweilige 


1 
1 
1 

I 

I 
1 
1 


da Optionen mit 


Blank als 


Parameter holen 

'! Name Eingabedatei 
Anfang next token 
suche Optionen 
gefunden ? 
Reststring mit 


Leereingabe ? 


Eingabedatei 


Ja -> öffne als 


24 PRINT "Options [/Wide /More /Print 
I* 
25 PRINT 
26 INPUT "File ",£filename$ ul 
27 INPUT "Options " options$ 
28 PRINT 
29 ELSE 
30 ptr% = INSTR (kommandos$,"/?") 
31 IF ptr% <> O0 THEN 
32 PRINT "DUMP 
1.0" 
33 PRINT 
34 PRINT "Aufruf: DUMP <Filename> <Optionen> 
35 PRINT 
36 PRINT "Das Programm gibt den Inhalt einer Binärdatei als 
Hex-" 
37 PRINT "Dump auf dem Bildschirm oder Drucker aus. 
38 PRINT 
39 PRINT "/W 
40 PRINT "/M More-Mode, 
41 PRINT "/P Ausgabe auf den Drucker" 
42 PRINT 
43 SYSTEM 
44 END IF 
1] 
'ı getfile separiert den Dateinamen aus der Kommandozeile 
'ı Falls ein Name fehlt, 
'ı Variable gespeichert. Dies ist abgefangen, 
'ı /.. beginnen. Dann wird ein Leerstring zurückgegeben 
| 
45 kommando$ = UCASES (kommando$) + " " 
Endeseparator 
46 ptrs=1 I 
47 CALL getfile(ptr%, kommando$, filename$ 
48 INCR ptr% 
49 hilf% = INSTR (kommando$,"/") ! 
50 IF hilf% >= ptr% THEN N 
51 options$ = MID$ (kommando$,hilf%) 
Optionen 
52 END IF 
53 END IF 
54 IF filename$ = "" THEN 
55 PRINT "Der Name der Eingabedatei fehlt' 
56 END 
57 END IF 
58 OPEN filename$ FOR INPUT AS #ein% 
vorhanden? 
59 CLOSE 
Binärdatei 


60 OPEN filename$ FOR BINARY AS #ein% 


61 


IF LEN (options$) 


> 0 THEN 


1 


öffne Eingabedatei 
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62 GOSUB getswitch '! lese Optionen 
63 END IF 
64 CALL kopf 'ı 1. Seitenkopf ausgeben 
un 
'ı bearbeite Datei je nach Option 
Kl 
65 IF druck% THEN 
66 PRINT "Ausgabe auf dem Drucker" 
67 END IF 
68 ptr% = 0 'ı auf 1. Eintrag 
69 WHILE NOT (EOF (ein%)) '! lese sequentiell 
70 GET$ #ein?%, 1, zchn$ '! lese 1 Byte aus 
Binärdatei 
71 code% (ptr?%) = ASC(zchn$) 'ı wandele in Hex 
72 IF ptr% > 14 THEN 'ı 16 Bytes gelesen ? 
73 IF druck% THEN 
74 CALL writeprn 'ı auf Printer ausgeben 
75 ELSE 
76 CALL writescr 'ı auf Screen ausgeben 
77 END IF 
78 ELSE 
79 INCR ptr% 'l next entry 
80 END IF 
81 WEND 
82 IF druck% THEN '! Restdaten ausgeben 
83 CALL writeprn 'ı auf Printer ausgeben 
84 ELSE 
85 CALL writescr '! auf Screen ausgeben 
86 END IF 
87 CLOSE 
88 PRINT "Ende Dump" 
89 END 
HH HEHE HH HH HH HH HH HH H HH HH HH HH HHHHEHH HH 
'# Hilfsroutinen # 
HH HEHE HH HH HH HEHE HH HHRHHH HH HH HH HH HH HH HHHH HH 
90 fehler 
Vi a a a a a ET a N a a a ee 
'ı Fehlerbehandlung in XREF 
Rz a a a a a a a a a a a a en er a ana 
91 IF ERR = 53 THEN 
92 PRINT "Die Datei ";filename$;" existiert nicht" 
93 ELSE 
94 PRINT "Fehler : ";ERR;" unbekannt" 
95 PRINT "Programmabbruch" 
96 END IF 
97 END 'ı MSDOS Exit 
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98 RETURN 
99 getswitch: 
| BEE EEE EEE EEE TER ERREGER RENNER ERS EEER WFERJERRESE NEE WER EN ESBFERFRGRESERE SR ERFEGESWERERERSRENFSRER 
'! decodier ingegebene Optionen 
'! option$ ist der String mit den Optionen 
We a a EN a a a a a na a a a 
100 options$ = UCASE$ (options$) 
101 IF INSTR(options$,"/M") > 0 THEN 
102 more% = $true 'ı More Mode ein 
103 END IF 
104 IF INSTR (options$,"/W") > 0O THEN '! wide Option ? 
105 wide? = %true 'ı Wide ein 
106 spacex% = 0 '! kein Zwischenraum 
107 END IF 
108 IF INSTR(options$,"/P") > O THEN '!ı Printer Option ? 
109 druck% = %true 'ı ja -> setze Mode 
110 more% = %false 'ı More ausschalten 
111 maxzeile% = %maxprt '! Zeilenzahl für 
Printer 
112 END IF 
113 RETURN 
114 


SUB getfile (ptr%,text$, result$) 
I 


'! separiere Filename aus Eingabetext (text$) 


'ı ptr% -> Anfang Filename, result$ = Filename 
I ! en aan an me Sean see uses Baganse salat iin innen 
115 LOCAL tmp% 
116 CALL skipblank (ptr%,text$) '! entferne 
Leerzeichen 
117 tmp% = INSTR (ptr%,text$," ") '! suche Separator 
118 IF tmp% = 0 THEN 
119 PRINT "Fehler: kein Fileseparator" '! kein Endeseparator 
120 END 'ı Exit 
121 END IF 
122 IF MID$ (text$,ptr%,1) = "/" THEN '! Optionen eingegeben 
? 
123 results = "" 'ı Leerstring 
124 ELSE 
125 result$ = MID$ (text$,ptr%,tmp%-ptr?%) 'ı Filename 
126 ptr% = tmp% 'ı korrigiere ptr% 
127 END IF 
128 END SUB 
129 SUB newscreen 
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130 


131 
132 
133 
134 
135 
136 
137 
138 


139 


oder 
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SHARED zeile% 


IF zeile% > maxzeile% THEN 

PRINT 

PRINT "Weiter, bitte eine Taste betätigen ..." 

WHILE LEN (INKEY$) = 0 '! warte auf Taste 
WEND 

CALL kopf "| 
END IF 


END SUB 


Seitenkopf 


SUB kopf 


'! Seitenvorschub und Ausgabe des Seitenkopfes auf Screen 





'ı Drucker. Bei der Druckerausgabe werden Filename und 


Seiten- 


140 


onsau wm Hr 





HFHHRHRHrHrrHrHrH 
D DB ı$B BB PB PB BB BR DB 


\ 


150 
151 
152 
153 
154 


155 


156 


157 
158 
159 


160 
161 
162 


'ı nummer mit ausgegeben. 





SHARED seite%, filename$, zeile%, druck% 
IF druck% THEN 
IF seite% > 1 THEN LPRINT CHRS$S (12); '! Seitenvorschub 
LPRINT "File : "; filename$, 
LPRINT SPACE$ (15) ;"Seite : "; seite% 
LPRINT " Adr Werte" 'ı auf Screen 
LPRINT 
INCR seite% 
zeile% = 3 
ELSE 
CLS 
PRINT " Adr Werte" 'ı auf Screen 
PRINT 
zeile% = 2 
END IF 
END SUB 


SUB writescr 


'! Ausgabe der 16 gelesenen Werte im HEX und ASCII Format 
'ı auf dem Bildschirm 


'ı code (16) 16 Bytes aus der Datei 
Mi a a a a a a EA Er Er a Br 
LOCAL res$, i%, zchn$ 
SHARED zeile%, maxzeile%, code?%(), adr&, ptr% 
SHARED spacex?%, more%, wide% 
IF (zeile% > maxzeile%) AND more% THEN 
CALL newscreen 'ı Bildwechsel 
END IF 
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163 res$ = HEX$ (adr&) '! Hexausgabe mit 

164 PRINT STRING$ (5-LEN (res$) ,"0") ;res$;" ";, 'ı führend. Nullen 
165 FOR i% = 0 TO ptr? '! Codes ausgeben 

166 res$ = HEX$ (code% (i%) AND &HFF) '! Hexausgabe mit 

167 PRINT STRING$ (2-LEN (res$) ,"0") ;res$;" "; 'ı führend. Nullen 


168 NEXT i% 


169 IF NOT wide% THEN 


170 PRINT: PRINT " N '! keine Wide Option 
171 ELSE 

172 IF ptr% < 15 THEN 'ı Zeile nicht voll !! 
173 PRINT SPACE$( (15 - ptr?%) * 3); 'ı Vorschub n Zeichen 
174 END IF 

175 PRINT " "; '! Leerzeichen 


176 END IF 


177 FOR i% = 0 TO ptr? '! ASCII ausgeben 
178 IF code? (i%) > &HIF THEN 

179 zchn$ = CHRS$S (code% (1%)) 'ı ASCII Wert 

180 ELSE 

181 zchn$ = "." 'ı nicht darstellbar 
182 END IF 

183 PRINT SPACE$ (spacex%) ;zchn$; _ 'ı ASCII Darstellung 
184 SPACHES$S (spacex?%); '! ausgeben 

185 NEXT i% 

186 PRINT 

187 INCR adr&, 16 'ı Adresse + 16 

188 IF wide% THEN 

189 INCR zeile% 'ı wide -> Zeile + 1 
190 ELSE 

191 INCR zeile%, 2 'ı Zeile + 2 

192 END IF 

193 ptr% = 0 '!l reset ptr% 


194 END SUB 


195 SUB writeprn 


DE a a a a N a a a a a a a a a ae a a 


'! Ausgabe der Werte auf dem Drucker 

!l----- ---------- -- ---- - - -- - -- -- -- - - -- - - - - - - - - - - - - - - - - - - -- 
196 LOCAL res$, i%, zchn$ 
197 SHARED zeile%, maxzeile%, code%(), adr&, ptr? 
198 SHARED spacex%, wide?% 


199 IF zeile% > maxzeile% THEN 
200 CALL kopf '! Seitenwechsel 
201 END IF 


202 res$ = HEX$ (adr&) '! Hexausgabe mit 
203 LPRINT STRING$S (5-LEN (res$) ,"0O");res$;" ", 'ı führend. Nullen 
204 FOR i% = 0 TO ptr% '! Codes ausgeben 
205 res$ = HEX$ (code% (i%) AND &HFF) '! Hexausgabe mit 
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206 LPRINT STRING$S (2-LEN (res$) ,"0") ;res$;" ", 'ı führend. 
Nullen 
207 NEXT i% 





208 IF NOT wide% THEN 

209 LPRINT: LPRINT " ne '! keine Wide Option 
210 ELSE 

211 IF ptr% < 15 THEN '! Zeile nicht voll !! 
212 LPRINT SPACE$((15 - ptr?) * 3); 'ı Vorschub n Zeichen 
213 END IF 

214 LPRINT " "; 'ı Leerzeichen 


215 END IF 


216 FOR i% = 0 TO ptr% '! ASCII ausgeben 
217 IF code%(i%) > &HIF THEN 

218 zchn$ = CHRS$S (code% (i1%)) 'ı ASCII Wert 

219 ELSE 

220 zchns =", 'ı nicht darstellbar 
2217 END IF 

222 LPRINT SPACE$ (spacex%) ;zchn$; _ 'ı ASCII Darstellung 
223 SPACES$S (spacex?%); '! ausgeben 


224 NEXT i% 
225 LPRINT 





226 INCR adr&, 16 'ı Adresse + 16 

227 IF wide% THEN 

228 INCR zeile% 'ı Zeile + 1 -> wide% 
229 ELSE 

230 INCR zeile%, 2 'ı Zeile + 2 

231 END IF 

232 ptri = 0 '! reset ptr?% 


233 END SUB 


234 SUB skipblank (ptr?%,text$) 


1 


'! entferne führende Leerzeichen aus text$ 


235 LOCAL lang%, zchn$ 


236 lang% = LEN (text$) 'ı Stringlänge 

237 zchn$ = MID$ (text$,ptr%,1l) '! separiere Zeichen 
238 WHILE (zchn$ = " ") AND (ptr% <= lang?) '! Zeichen <> blank 
239 INCR ptr?% 

240 zchn$ = MID$S (text$,ptr%,1) '! separiere Zeichen 
241 WEND 


242 END SUB 


Ixkkk* Programm Ende **+**** 


Listing 4.2: DUMP.BAS 
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FORMAT: Formatschutz für Festplatten 


Das MS-DOS-Programm FORMAT.COM (oder FORMAT.EXE) dient zum 
Formatieren von Disketten und Festplatten. Werden beim Aufruf keine 
Parameter angegeben, bezieht sich FORMAT auf das Standardlaufwerk. 
Als Einstellparameter werden dann Standardwerte gesetzt. Im Prinzip ist 
gegen diese Aufrufkonvention nichts einzuwenden, da sie sich bei vielen 
MS-DOS-Programmaufrufen bestens bewährt. Leider hat dies, 
insbesondere bei älteren Versionen des Programmes FORMAT, fatale 
Konsequenzen. Ist im System eine Festplatte vorhanden, befinden sich 
üblicherweise das Betriebssystem und die entsprechenden 
Hilfsprogramme auf dieser Platte. Dies bedeutet, daß in der Regel die 
Platte (C:, D: etc.) als Standardlaufwerk eingestellt wird. Alle Eingaben 
ohne Laufwerksangabe beziehen sich nun auf diese Platte. Wird bei der 
Eingabe: 


FORMAT 

die Bezeichnung des Laufwerks vergessen, bezieht sich das Kommando 
auf die Festplatte. Besonders bei älteren Versionen vom FORMAT wird 
dann die Platte ohne Warnung formatiert. Auch bei einer einfachen J/N- 
Abfrage ist diese schnell quittiert. Wem dies einmal passiert ist, kennt die 
tragischen Folgen eines solchen Formataufrufes. Es stellt sich sofort die 
Frage nach den Sicherungskopien, die natürlich in diesem Augenblick 
fehlen. Auch wenn diese vorhanden sind, bleibt eine Menge Arbeit mit der 
Restaurierung der Festplatte. 


Eine Möglichkeit besteht zwar darin, das Programm FORMAT nur auf 
Disketten zu halten. Damit läßt sich nur nach Einsatz einer Diskette mit 
dem Programm FORMAT arbeiten, ist aber in der Handhabung äußerst 
hinderlich. DOS 5.0 und verschiedene Utilities bieten zwar eine 
UNFORMAT-Anweisung. Aber auch dies ist mit Aufwand zur 
Restaurierung der Festplatte verbunden. Also ist ein Weg zu suchen, der 
zu einem besser abgesicherten FORMAT-Programm führt. Naheliegend ist 
sicherlich der Gedanke, FORMAT so zu verändern, daß eine irrtümliche 
Formatierung der Festplatte kaum mehr möglich ist. Dies setzt aber sehr 
genaue Kenntnisse des Programmcodes voraus. Als zweites Problem 
erweist sich die Tatsache, daß bei jeder neuen Version die Anpassung zu 
wiederholen ist. Dies ist in der Regel kein gangbarer Weg. Es stellt sich 
deshalb die Frage nach einer Alternativstrategie. Wie läßt sich das 
Programm FORMAT im Hinblick auf eine sichere Handhabung 
beeinflussen, ohne daß auf versionsspezifische Eigenarten Rücksicht 
genommen werden muß? 


Mit etwas Nachdenken stößt man auf eine einfache und dennoch elegante 
Lösung. MS-DOS bietet die Möglichkeit der Tochterprozesse, d.h. ein 
laufendes Programm kann ein weiteres Programm laden und aktivieren. 
Das aktuelle Programm wird dabei zwar suspendiert, aber nach 
Beendigung des neuen Programmes erhält es die Kontrolle zurück. Diese 
Vorgehensweise läßt sich auch für obiges Problem verwenden. Zuerst wird 
ein Programm aufgerufen, welches die Eingaben überprüft. Nur wenn das 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


208 PowerBasic-Programmierhandbuch 


Aufrufkommando korrekt ist, wird das eigentliche FORMAT-Programm 
aktiviert. Ein solches Prüfprogramm läßt sich natürlich in PowerBASIC 
leicht erstellen. Bleibt nur noch die Frage offen, wie der Aufruf erfolgen 
soll? Die Eingabe: 


TEST FORMAT A: /S 


ist sicherlich nicht zumutbar, da der normale DOS-Benutzer nichts von 
der Existenz des Programmes TEST weiß. Er wird sich also nach wie vor 
mit der Eingabe FORMAT begnügen und damit seine Platte ruinieren. Aber 
niemand sagt, daß das MS-DOS Programm FORMAT nicht einen anderen 
Dateinamen erhalten kann. Es besteht doch die Möglichkeit, die Datei 
FORMAT.COM oder FORMAT.EXE mit einem neuen Namen zu belegen. 
Das PowerBASIC- Prüfprogramm erhält dann den Namen FORMAT. 


Damit bleibt für den Benutzer die gewohnte Aufruffolge erhalten und er 
merkt im Grunde nichts davon, daß ein anderes Programm 
zwischengeschaltet wurde. Nur wenn sich ein Aufruf auf die Festplatte 
bezieht, erscheint eine deutliche Warnung. 


Vor der Implementierung soll nun noch kurz die genaue 
Benutzerschnittstelle festgelegt werden. Das Original-MS-DOS-Programm 
FORMAT wird in FORMATX umbenannt (mit RENAME ist dies kein 
Problem). Das PowerBASIC-Programm erhält dann den Namen 
FORMAT.BAS. Damit aktiviert jede Eingabe der Form: 


FORMAT <Laufwerk> <Optionen> 


das BASIC-Programm. Die Eingabe der Optionen kann entfallen. Wird 
aber auch der Laufwerksname weggelassen, erscheint die Meldung: 


### FORMAT Aufruf ohne Laufwerksangabe unzulässig ### 


und das Programm bricht ab. Wird als Laufwerk die Bezeichnung A: oder 
B: eingetragen, ist das Programm FORMATX zu aktivieren. Dieser Aufruf 
wird dem Benutzer aber nicht angezeigt. Auf dem Bildschirm erscheinen 
lediglich die gewohnten Meldungen des DOS-FORMAT-Programmes. Tritt 
die Bezeichnung einer Festplatte im Kommando auf: 


FORMAT C: /V /S 
dann erscheint eine deutliche Warnung an den Benutzer (Bild4.13): 


HH HB HH HH HH HH HH HE HH HH HH HH HHHHHHEH: 
# Wollen Sie wirklich Ihre Festplatte formatieren? # 
# Bitte, geben Sie dann den Code 69 ein, sonst eine # 
# beliebige Taste betätigen.... # 
HH HBHHHHHHHHHRHHHHH HH HH HH HH HH HH HH HH HH HHEH: 


Code : 


Bild 4.13: Benutzerwarnung beim Aufruf von FORMAT 
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Nur wenn der Benutzer die Zahl 69 eingibt, läßt sich die Festplatte 
formatieren. Die eingegebenen Zeichen erscheinen dabei nicht auf dem 
Bildschirm. Wird obiger Text so verändert, daß die Codenummer nicht 
mehr angezeigt wird, ist die Nummer mit einem Paßwort zu vergleichen. 
Nur bei Eingabe des korrekten Paßwortes läßt sich die Platte formatieren. 
Es besteht zwar auch die Möglichkeit, die Zeichen J/N abzufragen. Da 
solche Abfragen aber bei mehreren anderen Programmen auftreten, ist die 
Gefahr einer irrtümlichen Quittierung zu hoch. Die Abfrage der Zahl 69 
stellt hier eine zusätzliche Sicherheit dar. 


Da unser PowerBASIC-Programm das Eingabekommando nur auf gültige 
Laufwerksbezeichnungen prüft, können im Optionsfeld beliebige Zeichen 
auftreten. Falsche Optionen werden anschließend vom DOS FORMAT- 
Programm erkannt und abgewiesen. 


Damit wird die Beschreibung der Benutzeroberfläche sowie die Diskussion 
der prinzipiellen Vorgehensweise abgeschlossen. 


Die Implementierung 


Die Implementierung des Programmes ist recht einfach, so daß auf ein 
Hierarchiediagramm an dieser Stelle verzichtet wird. Das Programm erhält 
den Dateinamen FORMAT.BAS und besteht nur aus dem Hauptmodul. 


Es sind nur Eingaben über die Kommandozeile erlaubt. Diese wird mittels 
der Funktion COMMANDS in die Stringvariable kommando$ eingelesen. Ist 
die Länge = 0, fehlen Laufwerks- und Optionseingaben. In diesem Fall 
bricht das Programm mit einer Fehlermeldung ab. 


Nun gibt es aber noch den Fall, daß zwar die Laufwerksbezeichnung fehlt, 
aber Optionen eingegeben wurden. Hier muß eine erweiterte Prüfung 
erfolgen, da die Stringlänge größer Null ist. Es gibt nun einen einfachen 
Weg zur Überprüfung auf gültige Laufwerksnamen. Alle 
Laufwerkskennzeichnungen sind mit einem Doppelpunkt abzuschließen 
(A:, B:, a:, b: etc.). In vorliegender Implementierung wird nun überprüft, ob 
ein solcher Doppelpunkt im Kommandostring auftritt. Fehlt dieses 
Zeichen, liegt keine gültige Laufwerksbezeichnung vor und das Programm 
ist zu beenden. 


Damit ist die Abbruchbedingung bei fehlender Laufwerksbezeichnung 
hinreichend besprochen. Es bleibt nur noch der Fall, daß als Laufwerk 
eine Festplatte angegeben wird. Wie werden nun diese Eingaben erkannt. 
Zuerst nehmen wir an, daß bekannt ist, welche Platten im System 
vorhanden sind (C:, D: etc.). Damit läßt sich das Programm beliebig an das 
System anpassen. In vorliegender Implementierung wird deshalb nur das 
Laufwerk C: überprüft. Hierzu ist der String in der Variablen kommando$ 
in Großbuchstaben zu konvertieren (UCASE$). Dann wird mit der 
Funktion INSTR geprüft, ob die Zeichenkombination (C:) in der 
Kommandozeile vorkommt. Ist dies nicht der Fall, darf das in 
FORMATX.COM umbenannte DOS-FORMAT-Programm mit den 
eingegeben Optionen aufgerufen werden. Hierzu ist der Eingabetext mit 
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dem String »FORMATX« zu verknüpfen. Dies ist erforderlich, da die 
PowerBASIC-Funktion COMMAND$ nur die Eingabeparameter ohne den 
Namen des aktiven Programmes liefert. Dann wird as MS-DOS- 
Formatprogramm über die Basic-Funktion SHELL aufgerufen. Die 
Einzelheiten sind dem nachfolgenden Listing zu entnehmen. 


Erweitungsvorschläge 


Das Programm gibt vor der Formatierung einer Festplatte den Hinweis daß 
sich diese durch Eingabe des Codes »69« formatieren lässt. Einmal kann 
natürlich die Eingabe J/N geändert werden. Dadurch steigt aber auch die 
Gefahr von Fehleingaben. 


Wer die Festplatte noch sicherer vor ungewollter Formatierung schützen 
möchte, kann innerhalb der Warnung ein Kennwort abfragen. Der 
Codewert darf im Text dann nicht mehr vorkommen. Wird das 
ursprüngliche DOS-Programm FORMAT.COM zusätzlich noch mit einem 
unverfänglichen Namen versehen und gegebenenfalls in einer »Hidden«- 
Datei versteckt, kann nur ein Insider diesen Schutz umgehen. 


XREF /2=50 (ce) Born Version 1.0 
Datei : format.bas Datum : 05-31-1992 Seite : 1 
Zeile Anweisung 
IKAKKKKKKKKKHKTKH KK KK HK KK KHK HK KH TH KH KH TH KK TH KK KH KH KH KH KK KH KH KK TK AH KH A KH A KA KH KU 
'ı File ı FORMAT.BAS 
'! Vers. RER 
'ı Last Edit 2.16, 8,92 
'ı Autor : G. Born 
'ı Files : INPUT, OUTPUT 
'ı Progr. Spr.: Power Basic 
'ı Betr. Sys. : DOS 2.1 - 5.0 


'ı Funktion: Das Programm wird mit der Eingabe: 


"1 FORMAT <Laufwerk> <Optionen> 


| 
| 
| 
| 
| 
Kal aufgerufen. Es überprüft dann, ob als Lauf- 
| 
ra In diesem Fall erfolgt eine Warnung mit Ab- 
"1 frage, ob die Festplatte formatiert werden 
1 soll. Das Programm aktiviert nach einer 
| Quittierung, oder bei Floppylaufwerken an- 
vi schließend das DOS FORMAT Programm, welches 
| 
| 


ya in FORMATX umbenannt wurde. 
IAAAKKKKKKKKHKRKKHH HH TH TH KH TK TH TH KH TH KH TH FH FH KH KT FH KH TH KH TH TH FH KH TK TH TH KH TH TH TH TH AH KH AK A KH AH a 


I 
I 
"1 werk ein Festplattenname eingegeben wurde. 
I 
I 


'ı Variable definieren 


1.zchns .=-"M 'ı Hilfsvariable 
2 kommando$ = "" 'ı Kommandozeile 
3 ptr® = 0 'ı Hilfzeiger 


HEHE HEHE HH HH HH RHHEH HH HEHE HH HH HH HH HH HH HHEHH HH 
'# Hauptprogramm # 
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"HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HHHHHH 


4 kommando$ = UCASES (COMMANDS) 'ı Parameter ? 

5 IF LEN (kommando$) = 0 THEN 'ı Laufwerksname ? 

6 PRINT "### Formataufruf ohne Parameter unzulässig Bu" 
7 END 'ı Exit 

8 END IF 

9 ptr% = INSTR (kommando$,":") 'ı suche Laufwerk 
10 IF ptr% = 0 THEN 'ı Laufwerksname ? 
11 PRINT "### Formataufruf ohne Laufwerksangabe unzulässig ###" 
12 END Ti BRIE 
13 END IF 








14 IF INSTR(kommando$,"C:") > 0 THEN 

15 CLS 

16 PRINT 

17 PRINT 
HR HH HH RHHH HH HEHE HH HH HH HH HHEHHHHHEH 

18 PRINT "# Wollen Sie wirklich Ihre Festplatte formatieren ? 
#" 

19 PRINT "# In diesem Fall geben Sie den Code 69 ein, sonst 
#" 

20 PRINT "# bitte eine beliebige Taste betätigen 
#" 

21 PRINT 
HH HH HH HH RHHH HH HEHE HH HH HH HH HHEHHHEHHEH " 

22 PRINT 

23 PRINT "Code : "; 

24 antw$ = INPUTS (1) 'ı lese 1. Zeichen 

25 IF antw$ <> "6" THEN END 'ı Exit 

26 antw$ = INPUTS (1) 'ı lese 2. Zeichen 

27 IF antw$ <> "9" THEN END 'ı Exit 

28 END IF 

iR! 
'ı Die Eingabe bezieht sich auf eine Floppy, oder der 

Benutzer 


'! möchte die Festplatte formatieren -> starte FORMATX 


"1 
29 SHELL "FORMATX " + kommando$ '! execute Format 
30 END 'ı Ende 


Ixkkk* Programm Ende **+**** 


Listing 4.3: FORMAT.BAS 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


212 PowerBasic-Programmierhandbuch 


DELX: Physikalisches Löschen von Dateien 


Jeder MS-DOS Anwender kennt die Kommandos DEL und ERASE, mit 
denen sich Dateien von Platten und Floppys löschen lassen. Der normale 
Benutzer geht dann davon aus, daß die Daten damit gelöscht sind. Aus 
Zeitgründen beschränkt sich DOS aber darauf, nur den ersten 
Buchstaben des Dateinamens im Inhaltsverzeichnis auf den Wert E5SH zu 
setzen. Dies ist der vereinbarte Code für unbenutzte Dateieinträge. Insider 
haben bereits vor Jahren herausgefunden, daß die Daten weiterhin auf 
der Platte/Floppy erhalten bleiben. Wird der Eintrag im Inhaltsverzeichnis 
auf ein gültiges ASCI-Zeichen zurückgesetzt, läßt sich die Originaldatei 
restaurieren. Auf dieser Erkenntnis beruhen die angebotenen Programme 
zur Restaurierung versehentlich gelöschter Dateien (z.B. UNDELETE bei 
DOS 5.0). So schön dies bei unabsichtlich gelöschten Dateien ist, um so 
problematischer wirkt sich dies im Hinblick auf den Datenschutz aus. Mit 
den normalen DOS-Kommandos ist es unmöglich, eine Datei wirklich zu 
löschen. Mit Hilfe bestimmter Tools lassen sich die ursprünglichen Daten 
wieder restaurieren. Bei sensitivem Material ist dies natürlich 
unerwünscht. 


Nachfolgend wird deshalb ein Programm entwickelt, welches eine Datei 
physikalisch von der Platte/Floppy löscht. Doch zuerst zu den 
Anforderungen aus Benutzersicht. 


Einmal soll die Datei so gelöscht werden, daß eine Restaurierung nicht 
mehr möglich ist. Das Programm DELX bietet wieder zwei Möglichkeiten 
zur Eingabe der Dateinamen. Mit dem Kommando: 


DELX 
wird der interaktive Eingabemodus selektiert. Auf dem Bildschirm 
erscheint die Meldung: 


DELX (ce) Born Version 1.0 
Löschen einer Datei 


Datei : 
Bild 4.14: Meldung von DELX 
Das Programm erwartet dann den Namen der zu löschenden Datei. Es 


sind die gültigen MS-DOS-Konventionen zu beachten. Bei Leereingaben 
bricht DELX mit der folgenden Meldung ab: 


Der Name der Datei fehlt 


Falls die Datei nicht existiert, erscheint die Nachricht: 


Die Datei <Name> existiert nicht 
und das Programm wird ebenfalls beendet. Mit <Name> wird der 
eingegebene Dateiname bezeichnet. 
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Alternativ besteht die Möglichkeit, den Dateinamen bereits in der 
Kommandozeile mit anzugeben. Es gilt dabei folgende Syntax: 


DELX <Dateiname> 


Im Kommandomodus erscheint die Kopfmeldung nicht mehr. Ansonsten 
gelten die gleichen Fehlermeldungen wie bei der interaktiven Eingabe. Mit 
der Eingabe: 


DELX /? 


läßt sich noch die Online-Hilfe aktivieren. 


Falls die Datei existiert, beginnt das Löschen der Datei. Dies wird durch 
die Meldung: 


Die Datei <Name> wird gelöscht 
Die Datei <Name> ist gelöscht 


kommentiert. Der Vorgang dauert, insbesondere bei längeren Dateien, 
etwas länger als das entsprechende DOS-Kommando. Anschließend sind 
Datei und Daten gelöscht. 


Die Implementierung 


Das Programm ist so einfach, daß auf eine Diskussion des Entwurfs 
verzichtet werden kann. Das Hauptprogramm übernimmt wieder die 
Aufgabe, den Dateinamen interaktiv oder aus der Kommandozeile 
einzulesen. Dann wird die Datei im Binary-Modus eröffnet. Dies ist 
erforderlich, da auf die Datei wahlfrei zugegriffen werden muß. Da DOS 
nur den Eintrag im Inhaltsverzeichnis aber nicht die Daten löscht, muß 
dies von DELX übernommen werden. Hierzu dient die WHILE/WEND- 
Schleife. Im Prinzip ist jedes Byte der Datei mit dem Wert FFH zu 
überschreiben. Dann läßt sich der ursprüngliche Wert nicht mehr 
rekonstruieren. Leider ist die Länge der Datei nicht bekannt. Um zu 
vermeiden, daß DOS die Datei auf andere Sektoren kopiert, muß die zu 
schreibende Datei die gleiche Länge besitzen wie die Eingabedatei. 
Deshalb liest DELX die Datei sequentiell und schreibt gleichzeitig die 
Werte FFH zurück. Bei Binary-Dateien ist dies möglich. Um einen 
schnelleren Ablauf zu erhalten, werden jeweils 512 Byte gelesen und 
beschrieben. Dies entspricht der Sektorgröße auf der Floppy/Platte im 
MS-DOS-Format. Lediglich der letzte Satz muß nicht immer 512 Byte 
besitzen. Deshalb wird die Zahl der gelesenen Zeichen registriert, um zum 
Abschluß die Restdaten zu schreiben. Nach dieser Prozedur kann die 
Datei mit dem Basic-Kommando KILL gelöscht werden. Einzelheiten sind 
dem nachfolgenden Listing zu entnehmen. 


Erweiterungsvorschläge 


Mit dieser Lösung ist es recht einfach, eine Datei mitsamt den Daten zu 
löschen. Allerdings sei darauf hingewiesen, daß das Programm keine 
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Daten außerhalb der Datei löscht. Beim normalen DOS-Betrieb werden 
jedoch Dateien kopiert, gelöscht und in ihrer Größe verändert. Dies führt 
dazu, daß auf dem Medium freie Sektoren vorhanden sind, die zur 
Aufnahme neuer Dateien dienen. In diesen Sektoren können aber 
durchaus Daten aus alten Dateien vorliegen. Mit DELX lassen sich diese 
Werte nicht überschreiben, da die Sektoren nicht zur angegeben Datei 
gehören. Mit einem Trick läßt sich aber das Programm DELX so erweitern, 
daß alle freien Sektoren einer Platte/Floppy überschrieben werden. Hierzu 
wird einfach ein temporäre Datei eröffnet und solange mit &HFF 
beschrieben, bis das Medium voll ist. Dann sind alle leeren Sektoren 
dieser Datei zugeordnet. Wird die Datei dann gelöscht, finden sich nur 
noch FFH-Werte in den freien Sektoren, und die alten Daten sind mit 
Sicherheit überschrieben. 


XREF /2=50 (ce) Born Version 1.0 
Datei : delx.bas Datum : 05-31-1992 Seite : 1 
Zeile Anweisung 
IKAKKKKKKKKKHKTKH KK KK HK KK KHK HK KH TH KH KK TH KH HK KH KK KK KH KH KK KK KH KK KK TK AH KK A KH HK KA KH KU) 
'ı File ı DELX.BAS 
'l Vers. RER N 
'ı Last Edit : 16.858,92 
'ı Autor rG, Born 
'ı Files : INPUT, OUTPUT 
'ı Progr. Spr.: Power Basic 
UbBett..:Sy8:.':- DOS.2.1 ='5,0 
'ı Funktion: Das Programm löscht eine Datei pyhsikalisch, 
d.h. 
"1 die Daten werden erst mit FFH überschrieben. 
1 
'ı Aufruf: DELX '! Interaktiv Mode 
"1 DELX <dateil> 'ı Kommando Mode 
| DELX /? '! Online-Hilfe 
IKAKKKKKKKKKHKKH KK KK HK KH TK HK KK KH KH TH KH KK KH KK KH TH KH KH TH AK KH TH KH TK AK KK AK KH AK KK TK AH K A KH A KU &ÜUO 
'ı Variable definieren 
l ein? =1 'ı 1I/O Kanal 
2 ptr% = 0: hilf& = 0 'ı Hilfszeiger 
3 konst$ = "" 
4 ON ERROR GOTO fehler 
HEHE HH HEHE HH HH HH HH HHHHEHHHEH 
'# Hauptprogramm # 
HH HEHE HH HH HH HH HH HHHHHHHEHHHEH 
5 kommando$ = COMMANDS$S 'ı Parameter ? 
6 IF LEN (kommando$) = 0 THEN '! Interaktiv Mode ? 
7 CLS 'ı ja -> Clear Screen 
'ı HHHHH Kopf ausgeben H##### 
8 PRINT "DELX (ce) Born Version 1.0" 
9 PRINT "Löschen einer Datei" 
10 PRINT 
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11 INPUT "Datei : ",infilename$ '! lese Dateiname Eingabe 
12 PRINT 
13 ELSE 'ı Kommando Mode 
14 ptr% = INSTR (kommando$,"/?") '! Option /? 
15 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 
16 PRINT "DELX (ce) Born Version 1.0" 
17 PRINT 
18 PRINT "Aufruf: DELX" 
19 PRINT " DELX <datei>" 
20 PRINT 
21 PRINT "Das Programm löscht eine Datei, wobei deren Inhalt 
über-" 
22 PRINT "schrieben wird." 
23 PRINT 
24 SYSTEM 
25 END IF 
1 
'!ı getfile separiert den Dateinamen aus der Kommandozeile 
1 
26 kommando$ = UCASE$S (kommando$) + " " 1 Blank als 
Endeseparator 
27 ptr® = 1 'ı Parameter holen 
28 CALL getfile(ptr%, kommando$,infilename$) '! Name 
Eingabedatei 
29 END IF 
30 IF infilename$s = "" THEN '! Leereingabe ? 
31 PRINT "Der Name der Datei fehlt" 
32 END 
33 END IF 


34 OPEN infilename$ FOR INPUT AS #ein% 'ı Datei vorhanden 
35 CLOSE 'l ja-> open als 
36 OPEN infilename$ FOR BINARY AS #ein% '! Binary Datei 

37 konst$ = STRING$ (512,CHRS$S (&HFF)) 'ı auf FFH setzen 


38 PRINT "Die Datei ";infilename$; 
39 PRINT " wird gelöscht" 








? 


40 WHILE NOT (EOF (ein?)) 

41 GET$ #ein%, 512, zchn$ '! lese 512 Bytes 
42 SEEK #ein?, hilfe 'ı auf Anfang Satz 
43 IF LEN(zchn$) = 512 THEN 'ı voller Satz ? 
44 PUT$ #ein% , konst$ 'ı schreibe 512 * FFH 
45 ELSE 

46 PUT$ #ein?, STRING$S (LEN (zchn$) ,CHR$ (&HFF)) '! n Bytes 
47 EXIT LOOP '! EOF erreicht 

48 END IF 

49 hilfe = hilf& + LEN(zchn$) 'l Zeiger + n 

50 WEND 

51 CLOSE '! Datei schließen 
52 outfile$ = LEFT$ (infilename$, INSTR (infilename$,":")) 

53 outfile$ = outfile$ + "Born.G" '! neuer Name 
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54 NAME infilename$ AS outfile$ 'ı umbenennen 
55 KILL outfile$ 'ı lösche Datei 
56 PRINT "Die Datei ";infilename$; 
57 PRINT " ist gelöscht" 
58 END 
HH HH HH HH HH HHHHHHHHEHHHEH 
'# Hilfsroutinen # 
HH HH HH HH HH HH HHHHHHHEHHHEH 
59 fehler: 
Wa a le a u a BEE a ee aa rl ar ae a a a ae Be a rl a Se a a a a a a a u a a u et 
'ı Fehlerbehandlung in XREF 
Ba a ea a a ee a en a a ee a a a ER Er ee Se ee a en a u a a Re a A a a 
60 IF ERR = 53 THEN 
61 PRINT "Die Datei ";infilename$;" existiert nicht" 
62 ELSE 
63 PRINT "Fehler : ";ERR;" unbekannt" 
64 PRINT "Programmabbruch" 
65 END IF 
66 END 'ı MSDOS Exit 
67 RETURN 
68 SUB getfile (ptr%,text$, result$) 
I li a EN u en a ne En a a a Da a fees eie 
'! separiere Filename aus Eingabetext (text$) 
'ı ptr% -> Anfang Filename, result$ = Filename 
I 1 a un Pan ja Vans at mt a mm nt au CR a a m, ns Da Fin rn „a m u Ma m m m fin Han 
69 LOCAL tmp% 
70 CALL skipblank (ptr%,text$) 'ı entferne 
Leerzeichen 
71 tmp% = INSTR (ptr%,text$," ") '! suche Separator 
72 IF tmp% = 0 THEN 
73 PRINT "Fehler: kein Fileseparator" '! kein Endeseparator 
74 END 'ı Exit 
75 END IF 
76 IF MID$ (text$,ptr%,1) = "/" THEN '!l Optionen eingegeben 
2 
77 result$ = "" 'ı Leerstring 
78 ELSE 
79 result$ = MID$ (text$,ptr?%,tmp?%-ptr?) 'ı Filename 
80 ptr% = tmp% 'ı korrigiere ptr% 
81 END IF 
82 END SUB 
83 SUB skipblank (ptr%,text$) 


1 


'ı entferne führende Leerzeichen aus text$ 
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84 LOCAL lang?%, zchn$ 


85 lang% = LEN (text$) 'ı Stringlänge 

86 zchn$ = MID$ (text$,ptr?%,1) '! separiere Zeichen 
87 WHILE (zchn$ = " ") AND (ptr% <= lang?) '! Zeichen <> blank 
88 INCR ptr?% 

89 zchn$ = MID$S (text$,ptr%,1l) '! separiere Zeichen 
90 WEND 

91 END SUB 


Ixkkk* Programm Ende **+**** 


Listing 4.4: DELX.BAS 


TEXTS: Textsuche in EXE-, SYS- und COM-Dateien 


Manchmal ist es von Interesse EXE-, COM- oder SYS-Dateien auf Texte zu 
untersuchen. Dies ist zum Beispiel bei unbekannten Programmen 
erforderlich, wenn mögliche Fehler- oder Benutzermeldungen ermittelt 
werden sollen. Ein anderer Fall ist durch Viren in Computerprogrammen 
aktuell geworden. Bei unbekannten Programmen läßt sich teilweise an 
Hand der Meldungen auf die Funktion schließen. Damit besteht 
zumindest bei einigen Viren die Chance eine infizierte Programmdatei 
durch die Textstrings der Virusmeldungen im Programmcode 
identifizieren. 


Wie dem auch immer sei, als normaler DOS-Benutzer ist eine Analyse des 
Programmcodes kaum durchführbar. Die Befehle COPY, PRINT oder TYPE 
produzieren nur »Schrott« bei Dateien mit Programmcode. Das bereits 
vorgestellte Programm DUMP schafft Abhilfe. Allerdings werden ASCI- 
und HEX-Zeichen gemeinsam dargestellt, dass eine weitere Auswertung 
erforderlich wird. Schöner wäre es wohl, wenn der Rechner die Analyse 
des Codes übernimmt und die Textstrings in aufbereiteter Form auf dem 
Bildschirm ausgibt (Bild 4.15). 


Die Datei: c:\dos\command.com wird bearbeitet 
X[u 
!PSOQO 


(wW)iederholen 
(I)gnorieren 
‚ (U) ebergehen 
beim Lesen von 
beim Schreiben auf 
Laufwerk % 
Gerät % 


(A)bbrechen 
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Bitte Datenträger % 
Seriennummer % 
einlegen 
Fehlerhafte Dateizuordnungstabelle, Laufwerk % 
Eine beliebige Taste drücken, um fortzusetzen 


Stapelverarbeitung abbrechen (J/N)? 





/DEV/CON 
COMMAND 
COM 
AUTOEXEC 
BAT 
KAUTOEXE 
BAT 

PATH 
COMSPEC 
COMMAND 
COM 


Bild 4.15: Analyse von COMMAND.COM mit TEXTS 


Für diesen Zweck wird nachfolgend ein kleines Programm entwickelt. Es 
läßt sich mit der Eingabe: 


TEXTS 
im interaktiven Eingabemodus starten. Dann wird der Bildschirm gelöscht 
und es erscheint folgende Meldung: 


Texts (ce) Born Version 1.0 

Optionen [/L=03 minimale Zeichenzahl pro Wort ] 
File 

Optionen : 


Bild 4.16: Startmeldung von TEXTS 


Das Programm erwartet dann den Namen der zu bearbeitenden Datei. Es 
sind die gültigen MS-DOS-Konventionen zu beachten. Bei Leereingaben 
bricht TEXTS mit folgender Meldung ab: 


Der Dateiname fehlt 


Falls die Datei nicht existiert, erscheint die Nachricht: 


Die Datei <Name> kann nicht geöffnet werden 


und das Programm wird ebenfalls beendet. Mit <Name> wird der 
eingegebene Dateiname bezeichnet. Das Programm analysiert die 
eingelesenen Binärwerte der Datei auf zusammenhängende darstellbare 
Zeichen. Finden sich mehr als drei darstellbare Zeichen hintereinander, 
wird diese Folge als Text interpretiert. Die Wahrscheinlichkeit für 
unsinnige Zeichenfolgen ist jedoch recht hoch. Deshalb kann über die 
Option /L=xx die Schwelle der darstellbaren Zeichen pro Wort zwischen 2 
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und 30 Zeichen verändert werden. Ist eine Zeichenfolge kürzer als dieser 
eingestellte Wert, wird sie nicht angezeigt. Mit der Option: 


/L=10 
werden nur Zeichenketten angezeigt, die aus mindestens zehn 


aufeinanderfolgenden Zeichen bestehen. Mit dieser Option läßt sich die 
Erkennung von Texten beeinflussen. 


Alternativ besteht die Möglichkeit, den Dateinamen und die Option bereits 
in der Kommandozeile mit anzugeben. Es gilt dabei folgende Syntax: 


TEXTS <Dateiname> <Optionen> 
Im Kommandomodus erscheint die Kopfmeldung nicht mehr. Ansonsten 


gelten die gleichen Bedingungen und Fehlermeldungen wie bei der 
interaktiven Eingabe. 


Allerdings läßt sich bei diesem Modus die DOS Ein-/Ausgabeumleitung 
verwenden, d.h. die Ausgaben von TEXTS können in eine Datei oder an 
den Drucker umgeleitet werden. Das Kommando: 


TEXTS TEXTS.EXE /L=6 >TEXTS.TMP 


erzeugt eine Textdatei mit allen Textstrings, die in der Datei TEXTS.EXE 
gespeichert sind. Diese Datei kann dann in Ruhe analysiert werden. 


Nach dem Aufruf beginnt die Prüfung, ob die Datei existiert. Falls ja, liest 
TEXTS alle Bytes der Datei sequentiell ein und bearbeitet diese Bytefolge. 
Dies wird durch die Meldung: 


Die Datei <Name> wird bearbeitet 


kommentiert. In Anlehnung an die bisherigen Programme kann die 
Online-Hilfe mit der Anweisung: 


TEXTS /? 


aktiviert werden. Dann erscheint der folgende Text auf dem Bildschirm: 


Texts (ce) Born Version 1.0 
Aufruf: TEXTS <Filename> <Optionen> 
Optionen: 

/L=3 min. Zeichen pro Wort 


Das Programm liest eine Binärdatei ein und gibt alle 
Texte aus, die mehr als n Zeichen /L=xx) enthalten. 


Bild 4.17: Online-Hilfe von TEXTS 
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Die Implementierung 


Das Programm ist so einfach, daß auf eine Diskussion des Entwurfs 
verzichtet werden kann. Das Hauptprogramm übernimmt die Aufgabe, den 
Dateinamen aus der Kommandozeile oder interaktiv einzulesen. Dann 
beginnt die Analyse auf gültige Zeichenketten in der WHILE-Schleife. Die 
Anweisung: 


IF (INSTR(txt$,zchn$) > 0 THEN 


übernimmt die Analyse des Objectcodes auf Zeichenketten. Das Verfahren 
ist recht einfach: Alle Bytes werden daraufhin untersucht, ob sie den 
ASCII-Zeichen (A..Z, a..z, AA Ü, Ö, ä&, ü, ö, ß) entsprechen. Die 
betreffenden Zeichen werden im Programmkopf in der Variablen txt$ 
definiert. Jedes gefundene Zeichen erhöht die Variable tmp% um 1. Das 
Zeichen selbst wird an text$ angehängt. Sobald ein nicht darstellbares 
Zeichen auftritt, erfolgt die Überprüfung auf die Stringlänge. Ist diese 
größer als die eingestellte Schwelle, wird der betreffende Text ausgegeben. 


Noch ein paar Worte zur DOS-Ein-/Ausgabeumleitung. Mit: 

TEXTS file > prn: 

soll die Ausgabe zum Beispiel auf den Drucker umgeleitet werden. Der 
PRINT-Befehl schreibt die Texte jedoch direkt in den Bildschirmspeicher 
der Grafikkarte, die Umleitung funktioniert daher nicht. Hier muß man zu 


einem Trick greifen und PowerBasic zwingen, die Ausgaben an die DOS- 
Geräte vorzunehmen. Hierzu gibt es die OPEN-Anweisung: 


OPEN "CONS:" FOR OUTPUT AS #2 


die eine Ausgabeeinheit öffnet. Dann lassen sich die Zeichen mit: 


PRINT #2, 


an diese Einheit ausgeben. CONS: ist jedoch die Standard-DOS-Einheit, 
die auch Umleitungen zuläßt. Damit ist obiges Problem gelöst. 


Die Unterprogramme parameter und getval dienen zur Decodierung der 
Optionen und wurden bereits in früheren Kapiteln besprochen. 
Einzelheiten sind dem nachfolgenden Listing zu entnehmen. 


Erweiterungsvorschläge 


Die Erkennung von Wörtern ist noch verbesserungsfähig. So wird nach 
einem Großbuchstaben in der Regel eine Sequenz von Kleinbuchstaben 
stehen. Die Ausgabe läßt sich zur Zeit nicht mit Strg+S anhalten. die 
Implementierung der More-Option sollte deshalb keine größeren Probleme 
bereiten. 


XREF (ce) Born Version 1.0 
Datei : texts.bas Datum : 11-04-1992 Seite : 1 
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Zeile 


PwWmuH 


18 
19 


Anweisung 


I KAKKAKKKKHKHKKK KHK KH KK KH HK HK KH HK KH KK KH KK KH KK TH HK TH KH KK KK TH KH TH KH KK KH KH KH HK AH U KU 





' File : TEXTS.BAS 

Vers; > 150 

' Last Edit : 20. 4.92 

' Autor : G. Born 

' File I/O : INPUT, OUTPUT, FILE, PRINTER 

' Progr. Spr.: POWER BASIC 

‘ Betr...Sys. x DOS’2:1 = 5.0 

' Funktion: Das Programm liest beliebige Binärdateien ein 


! und versucht daraus Texte zu extrahieren und 


' anzuzeigen. 

ı 

' Aufruf: TEXTS Filename /Optionen 

i Optionen: /L=XX min. Wortlänge [3] 

ı 

j Die Werte in [] geben die Standardeinstellung 


! wieder. Wird das Programm ohne Parameter aufge- 
! rufen, sind Dateiname und Optionen explizit ab- 
1 zufragen. Mit dem Aufruf: 


! TEXTS /? 


! wird ein Hilfsbildschirm ausgegeben. 

1 KAKKKKAKKKKAKKHKKKKK KK KK KH KH HK HK KK TH KH KHK KH KH KH KH KK KK TH KH KK KH AK KK KH KK KK KH KH KH AH KH KA KO 
' Variable definieren 

son = 1: off = 0 


txt$ = "ABCDEFGHIJKLMNOPORSTUVWXYZÄÖU" 
txt$ = txt$ + "abcdefghijklmnopqrstuvwxyzäaöüß" 
txt$ = txt$ + " - +#1888/()}*><l]?tt;," 


datei% = 1 
lang% = 3 'ı 3 Zeichen für Wort 


ON ERROR GOTO fehler '! Fehlerausgang 
HH HH HH HH HEHE HH HH HEHE HH HH HH HHHHHHHEH 


'# Hauptprogramm # 
HH HEHE HH HH HH HH HH HEHE HH HH HH HH HHHHEHHHEH 


kommando$ = COMMANDS 'ı Parameter ? 

IF LEN (kommando$) = 0 THEN '!ı User Mode ? 

CLS 'ı clear Screen 

PRINT "Texts (ce) Born Version 
PRINT 


PRINT "Optionen [ /L=03 minimale Zeichenzahl pro Wort I" 
PRINT 





INPUT "File : ", £ilename$ 

INPUT "Optionen : ",options$ 

PRINT 
ELSE 

ptr% = INSTR (kommando$,"/?") '! Option /? 
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20 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 

21 PRINT "Texts (ce) Born Version 1.0" 

22 PRINT 

23 PRINT "Aufruf: TEXTS <Filename> <Optionen>" 

24 PRINT 

25 PRINT "Optionen :" 

26 PRINT 

27 PRINT " /L=3 min. Zeichen pro Wort" 

28 PRINT 

29 PRINT "Das Programm liest eine Binärdatei ein und gibt 
alle" 

30 PRINT "Texte aus, die mehr als n Zeichen (/L=xx) 
enthalten." 

31 PRINT 

32 SYSTEM 

33 END IF 

34 III 'ı Kommando Mode 

35 ptr% = INSTR (kommandos,"/") '!l Optionen ? 

36 IF ptr% = 0 THEN 

37 filename$ = kommando$ '! nur Filename 

38 ELSE 

39 filename$ = LEFT$ (kommando$,ptr% -1)'! Filename separieren 

40 options$ = MIDS$S (kommando$,ptr%) '! Optionen separieren 

41 END IF 

42 END IF 

43 GOSUB parameter 'ı Optionen decodieren 

44 IF (lang% < 2) OR (lang% > 30) THEN '! sinnlose 

45 PRINT 'ı Einstellung 

46 PRINT "Bitte Einstellung für Länge neu setzen" '! Fehlerexit 

47 SYSTEM 

48 END IF 

49 IF filename$ = "" THEN '! Leereingabe ? 

50 PRINT 

51 PRINT "Der Dateiname fehlt" 

52 SYSTEM 

53 END IF 

' prüfe ob Datei vorhanden, nein -> exit 
54 OPEN filename$ FOR BINARY AS #datei% 
'ı öffne Ausgabeeinheit für I/O-Umleitung 

55 OPEN "CONS:" FOR OUTPUT AS #2 

56 PRINT #2, 

57 PRINT #2, "Die Datei: ";filename$;" wird bearbeitet" 

58 tmp? = 0 

59 text$ = "" 

60 WHILE NOT (EOF (datei?)) '! Datei sequentiell 
lesen 
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61 GETS #datei%, 1, zchn$ '! lese 1 Byte aus 
Binärdatei 
62 IF (INSTR(txt$,zchn$) > 0) THEN '! Zeichen gehört zu 
Wort 
63 INCR tmp% 'ı zähle Buchstaben 
64 text$ = text$ + zchn$ '! merke Zeichen 
65 ELSE 
66 IF tmp% >= lang% THEN PRINT #2, (text$) '! gebe Satz aus 
67 tmp% = 0 
68 text$ = "" 
69 END IF 
70 WEND 
71 PRINT 
72 PRINT "Ausgabe beendet" 
73 CLOSE 'ı Dateien schließen 
74 END 
HH HH HH HH HH HH HHHHHHHEHHHEH 
'# Hilfsroutinen # 
HH HHHHHHHHHHHHHHH HH HH HH HH HH HHHHEHHHEH 
75 fehler 
Me ee a a a I ES Er EB a he u Dr Ba Bst a a a a a Zn Dir ait es Eat a Kart Kal Fin Kat ae Tal ua Ba Gr Da Ha 
'! Fehlerbehandlung in TEXTS 
Me a a a ee ae RITTER Dane a IE En ei aan 
76 IF ERR = 53 THEN 
77 PRINT "Die Datei ";filename$;" existiert nicht" 
78 ELSE 
79 PRINT "Fehler : ";ERR;" unbekannt" 
80 PRINT "Programmabbruch" 
81 END IF 
82 END 'ı MSDOS Exit 
83 parameter: 
Mn a a a a A ER a a DE re a En a ee a A ER Er DE a BE a Gr 
'ı Decodiere die Eingabeoptionen 
We a a he aa a a Re N ra a a a a A a a m A a a HS ern a Na A a Br en a N ran age a a rauhen ee N I a 
84 ptr% = INSTR (options$,"/L=") 
85 IF ptr% > 0 THEN CALL getval (lang?) '! min. Zeichen / Wort 
86 RETURN 
87 SUB getval (wert?) 


88 
89 


90 
91 


'! Decodiere den Eingabestring in eine Zahl 


SHARED options$, ptr% 


LOCAL i% 
ptr% = ptr?% + 3 'ı ptr hinter /x= 
21 
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92 WHILE ((ptr%+i%) =< LEN (options$)) and 
(MID$ (options$,ptr%+i%,1) < 
> " " ) 


93 i% = 1% +1 'ı Ziffernzahl + 1 

94 WEND 

95 wert? = VAL (MID$ (options$,ptr%,i?)) 'ı decodiere die Zahl 
96 END SUB 


' ###### Programm Ende ##H#H####HH#H# 


Listing 4.5: TEXTS.BAS 
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5 DOS-Befehlserweiterungen zur 
Stapelverarbeitung 


In den bisherigen Kapiteln haben Sie eine Reihe von Werkzeugen 
kennengelernt, mit denen einzelne DOS-Programme in ihrer Funktionalität 
ergänzt werden. Ein noch gänzlich unbearbeitetes Feld ist die 
Stapelverarbeitung unter DOS. Auch in der Version 5.0 kommt dieses 
Betriebssystem nur mit einigen spartanischen Befehlen zur 
Stapelverarbeitung daher. Tastaturabfragen, Schleifen und Berechnungen 
oder Statusabfragen, dies sind in der Regel Fremdworte beim Erstellen von 
Batchdateien für DOS. Einzig Digital Research hat mit DR-DOS 6.0 eine 
einfache Möglichkeit zur Benutzerabfrage in Batchdateien geschaffen. Das 
folgende Kapitel enthält ausgewählte Beispiele dieser 
Befehlserweiterungen die nach PowerBASIC portiert wurden. Damit 
erhalten Anwender von PowerBASIC die Möglichkeit (zumindest in 
Teilbereichen) hinter die Kulissen zu schauen, denn alle Module liegen im 
Quellcode vor. 


ASK: Benutzerabfragen aus Batchprogrammen 


Eine der am häufigsten vermißten Funktionen in Batchprogrammen ist die 
Möglichkeit zur Abfrage von Benutzereingaben. Zwar lassen sich beim 
Aufruf einer Stapelverarbeitungsdatei Parameter angeben und auswerten. 
Was aber nicht klappt ist die Abfrage der Tastatur im laufenden 
Stapelverarbeitungsprogramm. Wie oft habe ich in der Vergangenheit 
darüber geflucht, daß DOS keinen entsprechenden Befehl kennt. Jegliche 
Benutzersteuerung, Menüs zum Aufruf verschiedener Anwendungen, 
Abfragen von Laufwerken etc. ist mit den Standard-DOS-Befehlen 
unmöglich. Ein entsprechendes Schattendasein ist daher den meisten 
Batchprogrammen vorbestimmt. Vor einigen Jahren stieß ich dann aber in 
einer US-Computerzeitschrift auf einen Hinweis, wie eine Benutzerabfrage 
aus Batchprogrammen zu realisieren sei. Das daraus entwickelte 
Programm ASK leistet mir seither in vielen Fällen gute Dienste. Auch wenn 
die Technik bei vielen Programmierern mittlerweile als alter Hut gilt, 
möchte ich den Lesern die PowerBASIC-Version nicht vorenthalten. 
Vielleicht ist das Programm doch für einige unter Ihnen noch neu und 
hilfreich. 


Der Entwurf 


Als erstes möchte ich wieder auf die Anforderungen an das Programm 
eingehen. Das Programm ASK erlaubt es, innerhalb einer Stapeldatei 
Benutzereingaben abzufragen. Es besitzt dabei folgende Aufrufstruktur: 
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ASK <Text> 

Wird ein <Text> in der Kommandozeile angegeben, erscheint dieser nach 
dem Aufruf von ASK auf dem Bildschirm, unabhängig von der ECHO- 
Einstellung (ECHO ON/ECHO OFF) der Batchdatei. Der Text darf beliebige 
Zeichen enthalten und ist durch ein Leerzeichen von ASK zu trennen. 
Damit erhalten Sie die Möglichkeit, beim Ablauf der Batchdatei eine 
Nachricht an den Benutzer zu senden, z.B: 


ASK Soll das Programm beendet werden (J/N) ? 


Eventuelle Benutzereingaben (hier »J« oder »N«) sollen dabei direkt hinter 
der Abfrage am Bildschirm erscheinen.»Bei einem Aufruf ohne Parameter 
wird kein Text auf dem Bildschirm angezeigt. Dies ist teilweise erwünscht, 
wenn die Nachrichten an den Benutzer per ECHO-Befehl oder aus einer 
Datei ausgegeben werden sollen. In diesen Fällen erscheint dann 
allerdings auch die Benutzereingabe am Anfang einer neuen Zeile. 


ASK wartet anschließend auf eine Benutzereingabe von der Tastatur. Der 
betreffende Tastaturcode ist dann an die Batchdatei zu übergeben. Dort 
kann die Ablaufsteuerung entsprechend reagieren. Nun ist aber noch die 
Frage offen, wie sich die Ergebnisse der Tastaturabfragen von ASK an DOS 
übergeben und im Batchprogramm auswerten lassen. 


Hier bietet DOS einen trickreichen Mechanismus, der für unsere Zwecke 
benutzt werden kann. Wird ein Programm beendet, kann es einen 
Fehlercode an DOS zurückgeben. Dieser Fehlercode ist bei einem normal 
beendeten Programm gleich O. Allerdings sind Werte zwischen O und 255 
erlaubt. Unter DOS kann dieser Fehlercode durch die Batchanweisung: 


ERRORLEVEL 


abgefragt werden. Die Anweisung: 


IF ERRORLEVEL 33 GOTO L1 


innerhalb einer Batchdatei veranlaßt eine Programmablaufsteuerung. 
Immer wenn der interne Wert des Fehlercodes >= 33 ist, wird zur Marke 
L1 verzweigt. Andernfalls führt DOS den auf die IF-Abfrage folgenden 
Befehl aus. In einer Batchdatei darf die ERRORLEVEL-Funktion beliebig 
häufig aufgerufen werden. Wichtig ist lediglich, daß ein Vergleich 
innerhalb der IF-Anweisungen mit ERRORLEVEL immer auf »größer 
gleich« erfolgt. Obiges Beispiel ist dann als: 


IF ERRORLEVEL >= 33 THEN 


zu interpretieren. Zwar nutzen nur wenige DOS-Programme (wie BACKUP) 
diesen Mechanismus und geben Fehlercodes beim Abbruch zurück. Aber 
das Prinzip läßt sich in ASK verwenden. Ein eingelesener Tastencode muß 
lediglich als Fehlercode (Bytewert zwischen O und 255) zurückgegeben 
werden. 


Weiterhin soll sich das Programm mit der Option: 
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ASK /? 
aktivieren lassen. Dann erscheint eine Anzeige mit folgenden 


Erläuterungen auf dem Bildschirm: 


ASK (C) Born G. Version 1.0 
Aufruf: ASK <Text> 


Das Programm erlaubt Benutzerabfragen aus Batchdateien 
und gibt die Tastaturcodes als Fehlercode an DOS zurück. 
Die Fehlercodes lassen sich durch ERRORLEVEL auswerten. 
Das Feld <Text> ist optional und erlaubt die Angabe einer 
Benutzermeldung, die beim Aufruf erscheint. 


Bild 5.1: Meldung des Programmes ASK 


Ein Beispielprogramm 


Nachfolgendes Beispiel demonstriert die Verwendung von ASK in einer 
Batchdatei. Es soll eine einfache Menüsteuerung entworfen werden. Nach 
dem Aufruf des Batchprogrammes erscheint folgende Maske auf dem 
Bildschirm: 


HHRRRRRRRRRRRRRRIRERERERERERE EHER HEHE HEHE HEHE HIHIHIHIHIRIHI EHE 


# ME N DU # 
HH HRHHHHRHH HERR HH HH HH HH HH HEHE HEHE 
HB #Rr«* Programmauswahl **% # 
# # 
# 0 Ende # 
# 1 Textverarbeitung # 
# 2 Tabellenkalkulation # 
# 3 Datenbank # 
# 4 --- # 
# # 
HH HH HH HH HEHE HH HH HH HH HH HH HH HE HHHEH 


Bitte eine Kennziffer eingeben : 


Bild 5.2: Menüsteuerung mit ASK 


Der Benutzer kann nun die verschiedenen Programme durch Eingabe 
einer Ziffer aktivieren. Bei ungültigen Eingaben wird die Maske 
aufgefrischt und die Abfrage erscheint erneut. Das Programm läßt sich 
durch die Eingabe der Zahl 0 beenden. Das zugehörige Batchprogramm 
besitzt dabei den in Listing 5.1 gezeigten Aufbau. 


ECHO OFF 


: Programm: MENU.BAT 

: Version: 1,0 (25.5.92) (c) Born 

: Funktion: Demonstration einer Menüverwaltung 
unter Verwendung von ASK 
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: Maske aufbauen 


:LOOP 

CLS 

ECHO HH HH HH HH HH EHE HH HR HEHE HEHE HH HH HHEHHHHHHHHHEHHHEHHEIHH HH 
ECHO # ME N DU # 
ECHO HH HH HRHHH HH HH HHHHRHEH HH HH HH HHHHHH HIER 
ECHO # *+x*x* Programmauswahl RER # 
ECHO # # 
ECHO # 0 Ende # 
ECHO # 1 Textverarbeitung # 
ECHO # 2 Tabellenkalkulation # 
ECHO # 3 Datenbank # 
ECHO # Ar = # 
ECHO # # 
ECHO HH HH HH HRHHH HH HH HH HHHHH HH H HH HHHHHHHHHEHH 


ECHO Bitte eine Kennziffer eingeben : 
ECHO. 


: Hier wird ASK zur Benutzerabfrage verwendet 
ASK Bitte eine Kennziffer eingeben : 


: Auswertung der Benutzereingaben 
: werte zuerst immer die höheren Codes aus 
zahl 0 -> Code = 48, 1 = 49, usw. 


IF ERRORLEVEL 52 GOTO LOOP 

IF ERRORLEVEL 51 GOTO L3 

IF ERRORLEVEL 50 GOTO L2 

IF ERRORLEVEL 49 GOTO L1 

IF ERRORLEVEL 48 GOTO Exit 

GOTO loop 

:L1 Aufruf der Textverarbeitung 
D TEXTE 

ORD 

D.:« 
OTO loop 

:L2 Aufruf der Tabellenkalkulation 
CD 123 

LOTUS 

ED; 

GOTO loop 

:L3 Aufruf des Datenbankprogrammes 
CD DBASE 

DBASE 

CD. 
GOTO loop 
:Exit 
ECHO ON 


























C 
Ww 
C 
G 





Listing 5.1: Batchprogramm zur Menüsteuerung 
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Die eigentliche Maske wird mit ECHO-Befehlen aufgebaut. Am Ende der 
Sequenz erlaubt der ASK-Befehl die Tastaturabfrage, wobei gleichzeitig 
eine Benutzermeldung abgesetzt wird. Die Auswertung der 
Benutzereingabe erfolgt über die IF-Sequenz. Die Tasten O bis 4 haben die 
ASCII-Codes 48 bis 52. Wichtig ist dabei die Reihenfolge der Abfrage, da 
immer: 


Errorlevel >= Tastencode 


ausgewertet wird. Es führt an dieser Stelle zu weit, auf alle Einzelheiten 
der Batchdatei einzugehen. Der interessierte Leser sei hier auf /5/ 
verwiesen, wo die Thematik detailliert an vielen Beispielen beschrieben 
wird. 


Noch ein Wort zu den zurückgegebenen Codes der einzelnen Tasten. 
Solange Sie eine Taste mit Buchstaben oder Ziffern betätigen, gibt ASK 
den entsprechenden ASCI-Code zurück. Im Anhang findet sich eine 
Tabelle mit den Codes der einzelnen Buchstaben und Zeichen. Für ASK 
müssen Sie in der Spalte mit den Dezimalzahlen nachsehen. Als 
Sonderfall sind jedoch die Funktionstasten oder Tastenkombinationen 
(z.B. Alt+F) zu betrachten. Hier liefert die Tastatur einen 2-Byte- 
Tastencode (Extended-ASCII-Code) zurück, wobei der erste Wert O ist. An 
DOS kann jedoch immer nur ein Byte als Fehlercode zurückgegeben 
werden. Bei Funktionstasten wäre bei Verwendung des 1. Byte dann 
immer der Wert O in ERRORLEVEL zu finden. Die Rückgabe des zweiten 
Codebyte führt auch nicht weiter, da dieser Wert den Codes normaler 
Tasten entspricht. Alle Tasten die einen sogenannten Extended-ASCI/-Code 
zurückgeben, sind damit für ASK tabu. Um diese Tasten in einer 
Batchdatei einfacher abzufangen, soll ASK in diesem Fall den Fehlercode 
255 an DOS zurückgeben. Das nachfolgend vorgestellte Programm 
FKEY.BAS erlaubt dagegen die explizite Abfrage von Funktionstasten aus 
Batchdateien. 


Auf der Begleitdiskette findet sich übrigens das folgende Programm 
(E.BAT), welches die Programmentwicklung mit ASK erleichtert. 


@ECHO OFF 


: ermittle Errorlevel 

FOR %%a IN (0 1 2) DO IF ERRORLEVEL %%a00 SET $1=%%a 
GOTO %$1% 

:2 ERRORLEVEL 200 - 255 

FOR %%a IN (0 1 2 3 A 5) DO IF ERRORLEVEL 2%%a0 SET $2=%%a 
FOR %%a IN (0 12 3456 78 9) DO IF ERRORLEVEL 2%$2 
53=%%a 

: korrigiere Überlauf über 255 

IF NOT '%$1%%$2%%$3%' == '259' GOTO SET_E 

FOR %%a IN (0 1 2 3 4 5) DO IF ERRORLEVEL 2%$2%%%a SET $3=%%a 
GOTO SET_E 

I 1909 = 399 
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Oö 00. = 99 

FOR %%a IN (0 12 3456 78 9) DO IF ERRORLEVEL %$1%%%a0 SET 
$2=%%a 

FOR %%a IN (0 12 3456 78 9) DO IF ERRORLEVEL %$1%%$2%%%a SET 
53=%%a 

:SET_E 

SET SERROR=%$1%%$2%3%3$3% 

SET $1= 

SET $2= 

SET $3= 

ECHO. 

ECHO ERRORLEVEL IST %$SERROR% 

ECHO ON 


Listing 5.2: E.BAT 


Wird ASK über das Modul folgendermaßen aktiviert: 


E ASK Bitte eine Tast ingeben 





zeigt E.BAT anschließend den DOS-ERRORLEVEL-Code im Klartext auf 
dem Bildschirm an. Damit läßt sich recht einfach feststellen, welche Taste 
welchen Code liefert. Weitere Hinweise zu diesem Thema sowie eine 
erweiterte Version findet sich in /5/. 


Die Implementierung 


Doch nun möchte ich auf die Implementierung zu sprechen kommen. Das 
Programm ASK ist vom Aufbau recht einfach, so daß auf ein 
Hierarchiediagramm verzichtet wird. Es besteht nur aus einem 
Hauptmodul, welches als erstes die Kommandozeile auf den Parameter /? 
hin analysiert, gegebenenfalls den Hilfebildschirm ausgibt und dann (mit 
dem Fehlercode 0) abbricht. 


Ohne Option wird der eventuell in der Kommandozeile vorhandene Text 
mittels der PowerBASIC-Funktion COMMANDS ermittelt und per PRINT- 
Kommando ausgegeben. Liegt kein Text vor, gibt COMMANDS einen 
Leerstring zurück. 


Dann wird ein Zeichen von der Tastatur gelesen. Hierzu eignet sich die 
PowerBASIC-Funktion INPUT$, da sie eine vorgegebene Anzahl von 
Zeichen einliest, ohne daß diese mit der Eingabetaste zu quittieren sind. 
Wird eine Funktionstaste betätigt, liefert die Funktion den Code O0. 


Der Fehlercode 1äßt sich in PowerBASIC leicht über die Konstruktion: 


END (Fehlercode) 


an DOS zurückgeben. Einzelheiten sind dem nachfolgenden Listing zu 
entnehmen. 
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Erweiterungsvorschläge 


Das Programm ASK kann so optimiert werden, daß nur bestimmte 
Tastencodes (z.B. J, j, N, n) akzeptiert werden. Dann ist die Auswertung in 
einer Batchdatei etwas einfacher. 


xXREF /2=50 (ce) Born Version 1.0 
Datei : ask.bas Datum : 05-29-1992 Seite : 1 
Zeile Anweisung 


TKKAKKKAKKKKHKKHTK KHK TH KK KH KK HK KH KK KK KH KH KH KK KK KH KH TH KH KK KK TH KH KK KK AH HK KH KH &ÜUO 


'ı File : ASK.BAS 

'ı Vers. a ee) 

'ı Last Edit : 16.5.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBASIC 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 


'ı Funktion: Das Programm wird mit der Eingabe: 


I 
| ASK <Text> 
il 
1 Batch-Dateien. Der <Text> wird auf dem 
"1 Bildschirm ausgegeben. Dann wartet ASK auf 
| eine Eingabe. Das Ergebnis wird als Errorcode 
Lei an DOS übergeben und läßt sich über ERRORLEVEL 


u IF ERRORLEVEL 3 
Bu} 


| 
| 
| 
| 
| 
| 
Sl aufgerufen. Es erlaubt Benutzerabfragen in 
| 
| 
| 
| 
| 
| 


1 abfragen. 
IKAKKAKKKKKKKHKKH KK KH TH TH KH TK HK KK TH KH TH KH KH KH KH KK KH TH KH KK TH KK KK TK KH KK KH KH TH KH KH AK KK A KH A KU &ÜUO 
'ı Variable definieren 

1 zchn$ = "" 

ptr? = 0 

3 kommando$ = "" 


N 


HEHE HEHE HH HH HH HH HH HH HHH HH HH HH HHHHEHHHEH 
'# Hauptprogramm # 
HH HEHE HH HH HH HH HH HH RHHH HH HH HH HH HFHHHHHEHHHEH 


4 kommando$ = COMMANDS 'ı Parameter ? 

5 ptr% = INSTR (kommando$,"/?") '! Option /? 

6 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 

7 PRINT "ASK (ce) Born Version 1.0" 
8 PRINT 

9 PRINT "Aufruf: ASK <Text>" 

10 PRINT 

11 PRINT "Das Programm erlaubt Benutzerabfragen aus 


Batchdateien" 
12 PRINT "und gibt die Tastaturcodes als Fehlercode an DOS 
zurück" 
13 PRINT "Die Fehlercodes lassen sich durch ERRORLEVEL 
auswerten." 
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14 PRINT "Das Feld <Text> ist optional und erlaubt die Angabe 
einer" 

15 PRINT "Benutzermeldung, die beim Aufruf erscheint." 

16 PRINT 

17 SYSTEM 

18 END IF 


19 PRINT kommando$;" "; '! Text ausgeben 
20 zchn$ = INPUTS (1) '! Benutzereingabe 


21 IF ASC(zchn$) = 0 THEN 
22 END (255) 'ı Funktionstaste 
23 END IF 


24 END ASC (zchn$) 'ı Ende 


Ixkkk* Programm Ende **+**** 


Listing 5.3: ASK.BAS 


ESC:Steuersequenzen im Klartext 


Ein weiteres Thema ist die Ausgabe von Texten mit eingebetteten 
Steuersequenzen an Bildschirm und Drucker. Mit ECHO lassen sich zwar 
recht einfach Texte an den Bildschirm oder andere Einheiten ausgeben. 
Kritisch wird es allerdings, falls nicht darstellbare Zeichen auszugeben 
sind. Beispiele sind der Zeilenvorschub (Code = 10) oder das Zeichen mit 
dem Code 0. Solche Zeichen werden häufig zur Ansteuerung von Druckern 
und Peripheriegeräten benötigt. Um hier über eine komfortable Eingabe zu 
verfügen, habe ich das Programm ESC entwickelt. Es ist auf der 
Begleitdiskette beigefügt und erlaubt die Ausgabe beliebiger Zeichen an die 
aktuelle Ausgabeeinheit. 


Der Entwurf 


Für ESC gilt folgende Aufrufsyntax: 


ESC <Paraml> <Param2> .... <Param n> 

Hinter dem Programmnamen lassen sich mehrere Parameter angeben, die 
durch Leerzeichen zu trennen sind. Als Parameter sind dabei beliebige 
Folgen von zweiziffrigen Hexadezimalzahlen und Zeichenketten erlaubt. 
Zeichenketten müssen durch Anführungszeichen geklammert werden. Die 
zweiziffrigen Hexcodes (z.B. OA OD 0C) werden dann in das entsprechende 
ASCI-Zeichen konvertiert und zur Standardausgabeeinheit weitergeleitet. 
Die Codefolge OA OD löst dann zum Beispiel einen Zeilenvorschub aus. 
Texte müssen in Anführungszeichen stehen (z.B. "Hallo") und werden 
direkt zur Ausgabeeinheit weitergeleitet. Hierdurch lassen sich beliebige 
Steuersequenzen zusammenstellen. 


Das Programm soll weiterhin die DOS-Ein-/Ausgabeumleitungen 
unterstützen, damit sich die Zeichen dann zu jeder beliebigen Einheit 
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umdirigieren lassen. Nachfolgend möchte ich einige Beispiele für solche 
Aufrufe zeigen: 


ESC 0C >PRN: || | (Vorschub auf Drucker) 
ESC 07||| | (Bell auf Bildschirm) 
ESC 41 42 >A:TST.TXT| (Zeichen AB in die Datei TST.TXT) 


Die folgende Anweisung zeigt, wie sich Zeichenketten und Hexzahlen 
mischen lassen. 


ESC 41 20 "Hallo, dies ist eine Zeichenkette " 0d 0a 


Diese Anweisung gibt den Text: 





A Hallo, dies ist eine Zeichenkett 


auf dem Bildschirm aus. Der Code 41 steht dabei für den Buchstaben A 
(siehe ASCI-Tabelle im Anhang). Mit Od 0a wird nach der Textausgabe ein 
Zeilenvorschub ausgelöst. 


Nun noch einige Hinweise zur Behandlung von Fehleingaben. Fehlt das 
erste Anführungszeichen bei einem String, bricht ESC mit einer 
Fehlermeldung ab. ERRORLEVEL enthält dann den Wert 255. Fehlt das 
letzte Anführungszeichen eines Strings, interpretiert ESC die restlichen 
Parameter einfach als Text. Das Kommando: 


ESC 41 Hallo dies ist ein Text" 


führt demnach zu einer Fehlermeldung, während: 

ESC "Hallo dies ist ein Text 0d 0a 
den kompletten Text der Zeile ausgibt (0a Od werden als Text interpretiert). 
Parameter und Text dürfen beliebig gemischt werden und sind durch 
Leerzeichen zu trennen. Bei Hexdezimalzahlen dürfen die Werte zwischen 
00 und FF liegen. Eine Hexziffer kann die Zeichen 0..9,A,B,C,D,E,F und 


die entsprechenden Kleinbuchstaben a,b,c,d,e,f enthalten. Alle anderen 
Zeichen führen zu einem Fehlerabbruch. 


Weiterhin läßt sich mit dem Befehl: 


ESC /? 


die Online-Hilfe des Programmes abrufen. Auf dem Bildschirm erscheint 
dann ein entsprechender Fehlertext. 


EScC (ce) Born Version 1.0 
Aufruf: ESC <Param 1> <Param 2> .. <Param n> 

Das Programm gibt in den Parametern angegebene Texte 
oder Hexzahlen (2 Ziffern) an die Standardausgabeeinheit 


aus. Beispiel: 


ESC 0C > PRN: 
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ESC "Hallo" 0D 0A 


Bild 5.3: Online-Hilfe von ESC 


Anwendungsbeispiele 


Um Ihnen die Möglichkeiten des Programmes etwas zu erläutern, möchte 
ich einige kleine Anwendungen vorstellen. 


Druckeransteuerung mit ESC 


Das folgende kleine Beispiel zeigt, wie sich mit ESC die Schriftarten an 
einem EPSON-Drucker umschalten lassen. Die Druckerhersteller geben in 
den meisten Fällen die notwendigen Steueranweisungen für die 
Umstellung der Schriftarten in ihren Handbüchern an. Mit dieser 
Kenntnis ist es relativ einfach, den Drucker umzustellen. 


Bei Epson-Druckern und den dazu kompatiblen Geräten gelten folgende 
Codesequenzen (Angaben im Hexadezimalmodus) zur Formatumstellung: 





Drucker Reset : 1B 40 
Near Letter Quality : 1B 78 01 
Draft : 1B 78 00 
Roman : 1B 6B 00 
Sans Serif : 1B 6B 01 
Pica : 1B 21 00 
Elite = »1B-:27, :07 
Kursiv Ein : 1B 34 
Kursiv Aus : 1B 35 
Fett Ein : 1B 45 
Fett Aus : 1B 46 


Die Schriftarten »Roman« und »Sans Serif« stehen teilweise aber nur im 
»Near Letter«-Modus zur Verfügung. Weitere Codesequenzen (z.B. für 
Unterstreichen etc.) lassen sich an Hand der Informationen aus den 
Druckerhandbüchern erstellen. Mit dem Programm ESC lassen sich 
natürlich die Steuersequenzen recht elegant an den Drucker übergeben. 
D»s Kommando: 


ESC 1B 34 > PRN: 


stellt die Kursivschrift ein, während der Befehl: 


ESC 1B 35 > PRN: 


den Modus wieder abschaltet. Damit läßt sich ein kleines Batchprogramm 
zur Fontumstellung erstellen. Das nachfolgende Listing zeigt den Aufbau 
der Batchdatei. Bei der Umstellung auf »Roman« und » Sans Serif« ist 
gleichzeitig der »Letter«-Modus einzuschalten, da diese Typen nur in 
diesem Modus definiert sind (EPSON LX 800).» 


ECHO OFF 
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Programm: FONT.BAT 
Version: 31.5.92 (c) Born 
Batchdatei zur Fontumstellung eines Druckers. 


ECHO EIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII» 
ECHO ° Utility zur Umstellung der Schriftart des Druckers ° 


ECHO ° Z 
ECHO ° 0 Draft 5 
ECHO ° 1 Pica 2 
ECHO ° 2 Roman ” 
ECHO ° 3 Sans Serif 8 
ECHO ° 4 Kursiv Ein o 
ECHO ° 5 Kursiv Aus 2 


ECHO EIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIY 
ECHO. 
ASK Bitte eine Zahl eingeben 
prüfe Eingabeparameter 
: CHECK 
IF ERRORLEVEL 54 GOTO EXIT 
IF ERRORLEVEL 53 GOTO L5 
IF ERRORLEVEL 52 GOTO L4 
IF ERRORLEVEL 51 GOTO L3 
IF ERRORLEVEL 50 GOTO L2 
IF ERRORLEVEL 49 GOTO L1 
IF ERRORLEVEL 48 GOTO LO 
GOTO EXIT 
:LO 
ECHO Draft Modus einschalten 
ESC 1B 78 00 > PRN: 
GOTO EXIT 
ul 
ECHO Pica Modus einschalten 
ESC 1B 21 00 > PRN: 
GOTO EXIT 
:L2 
ECHO Roman Modus einschalten 
ESC 1B 78 01 1B 6B 00 > prn: 
GOTO EXIT 
v3 
ECHO Sans Serif Modus einschalten 
ESC 1B 78 01 IB 6B 01 > prn: 
GOTO EXIT 
:L4 
ECHO Kursiv Schrift einschalten 
ESC 1B 34 > prn: 
GOTO EXIT 
:L5 
ECHO Kursiv Schrift ausschalten 
ESC 1B 35 > prn: 
GOTO EXIT 
:EXIT 
ECHO ON 
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Listing 5.4: Programm zur Fontumschaltung 


Der Drucker kann durch einfaches Aus- und wieder Einschalten auf den 
alten Schriftmodus zurückgesetzt werden. Notfalls läßt sich auch eine 
entsprechende Steuersequenz erzeugen, die diese Aufgabe erledigt. In der 
Grundeinstellung ist der Schrifttyp »Elite« mit dem »Draft«-Modus 
wirksam. Die obigen Überlegungen sind auch auf andere Drucker 
umsetzbar. Sie müssen sich lediglich die erforderlichen Sequenzen aus 
den Druckerhandbüchern beschaffen. Damit lassen sich unterschiedliche 
Schriftarten auch unter DOS nutzen. 


Abfrage des Druckerstatus aus Batchdateien 


Weiterhin können mit ESC auch COM-Dateien erzeugt werden. Die 
Abfrage des Druckerstatus kann über das kleine Programm LPTCHK.COM 
erfolgen. Hierzu müssen Sie lediglich die folgenden Anweisungen eingeben: 


ESC bA 02 31 d2 cd 17 > LPTCHK.COM 
ESC 88 e0 bA Ac cd 21 >> LPTCHK.COM 


Die Codes entsprechen den Maschinenbefehlen zur Abfrage des 
Druckerstatus an LPTIl. Das Programm gibt den Status über 
ERRORLEVEL an DOS zurück. Ein Aufruf erfolgt dann mit LPTCHK: 


LPTCHK 
IF ERRORLEVEL ..... 


Die betreffenden Codes für verschiedene Druckerstörungen (Drucker 
ausgeschaltet, Papierende, Offline etc.) können Sie mit dem Programm 
E.BAT ermitteln. 


Print-Screen aus Batchdateien 
Ein anderes einfaches COM-Programm läßt sich mit dem Befehl: 


ESC CD 05 C3 > PRTSCR.COM 


erzeugen. Sobald Sie das Programm von der DOS-Ebene mit: 


PRTSCR 


aufrufen, wird eine Hardcopy des Bildschirminhaltes auf dem Drucker 
ausgegeben. Offenbar besitzt das Programm die gleiche Wirkung wie die 
Druck-Taste des Rechners. Sie sehen, mit etwas Know how und den 
beschriebenen Utilities sind interessante Dinge möglich. 


Die Implementierung 


Der Aufbau des Programmes ist recht einfach, so daß ich an dieser Stelle 
auf ein Hierarchiediagramm verzichten möchte. 


Das Hauptprogramm 
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Im Hauptprogramm wird zunächst geprüft, ob die Option /? gesetzt ist. Ist 
dies der Fall, gibt ESC den Text der Online-Hilfe aus und endet dann. 


Andernfalls beginnt die Decodierung der Parameter der Kommandozeile. 
Für diese Aufgabe ist das Modul getpara zuständig. 


Um die Ein-/Ausgabeumleitung zu ermöglichen, muß der DOS-Kanal 
geöffnet werden: 


OPEN "CONS:" FOR OUTPUT AS #1 


Die betreffende Technik wurde bereits im vorherigen Kapitel (TEXTS) 
vorgestellt. 


getpara 


In diesem Modul werden als erstes führende Leerzeichen vor einem 
Parameter entfernt (skipblank). Bei der Decodierung der Parameter sind 
dann Hexzahlen und Strings zu unterscheiden. Beginnt ein Parameter mit 
Anführungszeichen (z.B: "Textzeile...), liegt per Definition eine 
Zeichenkette vor. Dann aktiviert getpara das Unterprogramm WRString. 
Andernfalls liegt eine Hexzahl vor, die mit WRVal decodiert und 
ausgegeben wird. 


WRVal 


Dieses Unterprogramm bearbeitet immer zwei Zeichen aus der 
Kommandozeile und versucht diese als Hexzahl zu interpretieren. Die 
Decodierung erfolgt über die Sequenz: 


tmp%=INSTR ("0123456789ABCDEF", zchn$) 


Liegt keine gültige Hexziffer vor, ist tmp%=0, und das Modul bricht mit 
einer Meldung und dem Fehlercode 255 ab. Andernfalls wird tmp% um 1 
erniedrigt und gibt damit direkt den Wert der Hexziffer wieder. Sobald eine 
Hexzahl errechnet wurde, gibt WRVal diese über den folgenden Befehl aus: 


PRINT #1, CHRS$ (wert?) 


Damit werden die Hexzeichen der Kommandozeile in den zugehörigen 
ASCII-Code gewandelt. 


;WR String; 


Dieses Unterprogramm übernimmt die Ausgabe von Texten. Es wird 
aufgerufen, falls ein Parameter mit einem Anführungszeichen (") beginnt. 
Dann sucht WRString den Abschluß des Strings. Fehlt dieser, wird einfach 
die Restzeile ausgegeben. Andernfalls beschränkt sich die Ausgabe auf den 
String zwischen den Anführungszeichen. Innerhalb des Textes kann 
deshalb kein Anführungszeichen verwendet werden. Ist dies erforderlich, 
kann das Zeichen direkt als Hexcode definiert werden (z.b: "Hallo " 22 "Du 
da" 22). 


fehler 
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Dieses Modul fängt die Laufzeitfehler von PowerBASIC ab. 


Anmerkung: «Beim Test des Programmes ist mir noch eine Anomalie 
aufgefallen, die vermutlich in der Implementierung von 
PowerBASIC liegt. Die Anweisung: 


... ESC 20 "Test" Od 0a "Text" 


«erzeugt lediglich die erste Zeile, während das Wort ”Text” nicht mehr auf 
dem Bildschirm erscheint. Offenbar werden alle Zeichen 
hinter dem Zeilenvorschub abgeschnitten. Wird die obige 
Zeile dagegen mit einem zweiten Zeilenvorschub (Od Oa) 
abgeschlossen, erscheinen die zwei Zeilen. Der Fehler 
tritt hingegen nicht auf, falls die Ausgabe an eine andere 
DOS-Einheit umgeleitet wird. 


Erweiterungsvorschläge 


Die Erkennung von Anführungszeichen im Text ist eine sinnvolle 
Ergänzung von ESC. Weiterhin kann die Separierung von Parametern 
verbessert werden, so daß auch andere Trennzeichen erlaubt sind. Als 
dritte Ergänzung kann die Decodierung der Hexzahlen so erweitert 
werden, daß auch Zahlen mit einer Ziffer erkannt werden. 


REF /2=50 (ce) Born Version 1.0 
Datei : esc.bas Datum : 06-02-1992 Seite : 1 
Zeile Anweisung 


TKAKAKKKAKKKKHKKHTK KK KK HK KH KH KH KH KH KK KK KH KK KH KK KK KH KH TH KH KK TH KH KH KK KK AH KH KH KH &ÜUO 


'ı File : ESC.BAS 

'ı Vers. 2.130) 

'ı Last Edit : 16.5.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBASIC 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 


ESC <Para 1> <Para 2> .. <Para n> 


aufgerufen. Es liest die Parameter und gibt 
den Inhalt auf der Standard Ausgabeeinheit aus. 


| 
I 
| 
| 
! 
'ı Funktion: Das Programm wird mit der Eingabe: 
| 
| 
| 
I 
! 
! Bei Zahlen als Parameter werden diese als 


Hexwerte 

1 interpretiert und in ASCII Codes gewandelt. 
Beispiel: 

| 

u ESC 20 "Hallo" 0D 0A 

| 

"1 Zahlen werden als Hexwerte mit je 2 Ziffern 
interpre- 

Du tiert. Parameter sind durch Blanks zu 
separieren. 
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.Y Zeichenketten sind in ".." einzuschließen. 
TARKKKKKKKKK KK KK KK KK KK KK KK KK KH KK KK KK KK TE KK KK KK KK KK KK KK KK KK KK KH KH KU U 
'ı Variable definieren 

1 ptr? = 0 

kommando$ = "" 

3 langt = 0 


N 


HEHE HEHE HH HH HH HH HH HBHHH HH HH HH HH HHHH HH HHHHHEH 
'# Hauptprogramm # 
HH HEHE HHHH HH HH HH HH HEHE HH HH HH HHHHHHHHEH: 


4 ON ERROR GOTO fehler 


5 kommando$ = COMMAND$S 'ı Parameter ? 

6 ptr% = INSTR (kommando$,"/?") '! Option /? 

7 IF ptr® <> 0 THEN 'ı Hilfsbildschirm 

8 PRINT "E SC (ce) Born Version 1.0" 
9 PRINT 
10 PRINT "Aufruf: ESC <Param 1> <Param 2> .. <Param n> 
141 PRINT 
12 PRINT "Das Programm gibt in den Parametern angegebene 


Texte" 
13 PRINT "oder Hexzahlen (2 Ziffern) an die 
Standardausgabeeinheit" 
14 PRINT "aus. Beispiel:" 








15 PRINT 

16 PRINT "ESC O0C > PRN:" 

17 PRINT "ESC "Hallo" OD 0A" 
18 PRINT 

19 SYSTEM 





20 END IF 
21 OPEN "CONS:" FOR OUTPUT AS #1 


22 ptr% =1 


23 lang% = LEN (kommando$) 'ı Länge 
Parameterstring 

24 WHILE ptr% <= lang? '!l separiere 
Parameter 

25 CALL getpara (ptr%, kommando$) 

26 WEND 





27 CLOSE #1 

28 END 'ı Ende 
HH HH HH HH HH HH HH HHHHEHHHEH 
'# Hilfsroutinen # 


"HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HHHHHH 


29 SUB getpara (ptr%, text$) 
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'! lese die Parameter und geben sie aus 
I ! ut ab Ge et, au Far as ei ut an cha a at, Co en, Der) ik Ku, Fa el ah et 0a a ar Gt Ka Ba aan a Du a a a a, 
30 LOCAL zchn$ 
'! suche Anfang des Parameters 
31 CALL skipblank (ptr%,text$) 'ı skip führende blanks 
'ı liegt ein String vor ? 
32 zchn$ = MID$ (text$,ptr%,1l) 
33 IF (zchn$ = CHR$(34)) THEN 
34 CALL WRSTRING (ptr?%, text$) 'ı String ausgeben 
35 ELSE 
36 CALL WRVal (ptr?%, text$) '! Hexwert ausgeben 
37 END IF 
38 END SUB 
39 SUB skipblank (ptr%,text$) 
Me a ee Te a a ae N a A a N a a Ba en Ir a nr an a an ae 
'ı überlese führende Blanks in einer Zeichenkette 
'! text$ = Zeichenkette, ptr% = Zeiger in Kette 
Mi a a N EA Be a a a a a a a A ae a a ui ea 
40 SHARED lang% 
41 WHILE (ptr% =< lang?) and (MID$ (text$,ptr%,1) = "") 
42 INCR ptr% 
43 WEND 
44 IF ptr% >= lang% THEN 
45 CALL Ende (0) 'ı Textende erreicht 
46 END IF 
47 END SUB 
48 SUB WRVal (ptr?%,text$) 
We a en VE ar ink Eau un Yan nl un, a ft a fan make en au a da Ma nt m dt a fi Ham 
'ı decodieren der Hexzahl 
DT ea a ee EA a a en a a BE a a En E Eat Ze 
49 LOCAL tmp%, zchn$, wert% 
50 zchn$ = UCASES$ (MID$ (text$,ptr?%,1)) '! hole 1. Ziffer 
51 tmp% = INSTR("0123456789ABCDEF",zchn$) '! decodiere Ziffer 
52 IF tmp% = 0 THEN '! Wert gefunden ? 
53 PRINT "Fehler in Parameter ";MID$ (text$,ptr%,10) 'ı Text 
ausgeben 
54 CALL Ende (255) 
55 END IF 
56 wert?% = (tmp?%-1) * 16 
57 INCR ptr% 
58 zchn$ = UCASES$ (MID$ (text$,ptr?%,1)) '! hole 2. Ziffer 
59 tmp% = INSTR("0123456789ABCDEF",zchn$) '! decodiere Ziffer 
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60 IF tmp% = 0 THEN '! Wert gefunden ? 

61 PRINT "Fehler in Parameter ";MID$ (text$,ptr%,10) 'ı Text 
ausgeben 

62 CALL Ende (255) 

63 END IF 

64 wert?% = wert? + (tmp% - 1) 

65 PRINT #1, CHR$ (wert?%); 'ı Hexzahl als ASCII-Code 

66 INCR ptr% 'ı auf Folgezeichen 

67 END SUB 

68 SUB WRString (ptr%,text$) 


69 
70 


71 
72 
73 
74 
75 


76 
77 


78 


79 


80 
8l 
82 


83 


84 
85 
86 


LOCAL tmp%, zchn$, wert? 
SHARED lang% 


'ı suche Ende des Strings 


INCR ptr% 

anf% = ptr? '! merke Anfang 

WHILE (MID$ (text$,ptr?%,1) <> CHR$(34)) AND ptr% <= lang% 
INCR ptr% 'ı hole nächstes Zeichen 

WEND 


PRINT #1, MID$S (text$ ,anf%,ptr%-anf?%); '! Text ausgeben 
INCR ptr% 


END SUB 


PRINT "Fehler : ";ERR; 
CALL Ende (255) 
RETURN 


SUB Ende (errx%) 


l 

'ı schließe Dateien und terminiere 
"1 

CLOSE #1 

END (errx%) 

END SUB 


!lkk*k** Programm Ende ****+x*x* 


Listing 5.5: ESC.BAS 
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GET: Abfrage von Systemparametern aus 
Batchdateien 


Eine andere interessante Aufgabe ist die Abfrage von Systemparametern 
aus Batchdateien. Das oben beschriebene Programm LPTCHK ist lediglich 
ein einfacher Ansatz. Die Abfrage von Datum, Uhrzeit und freiem Speicher 
sind ebenfalls interessante Alternativen. Mit dem Programm GET läßt sich 
dies leicht erreichen. Der Befehl: 


GET /? 
aktiviert die Online-Hilfe des Moduls. Auf dem Bildschirm erscheint 
folgender Text: 


GET (ce) Born Version 1.0 
Aufruf: GET <Option> 


Erlaubt die Abfrage bestimmter Parameter 

GET /DAY ermittelt den Tag (1-31) 

GET /MONTH ermittelt den Monat (1-12) 

GET /YEAR ermittelt das Jahr (0-99) 

GET /WEEK ermittelt den Wochentag (0-6) 

GET /SEC ermittelt die Sekunden (0-59) 

GET /MIN ermittelt die Minuten (0-59) 

GET /STD ermittelt die Stunden (0-23) 

GET /MEM freier Hauptspeicher in 4 KB-Blöcken 


Bild 5.4: Online-Hilfe von GET 


Die Aufrufe zur Abfrage der Parameter besitzen folgende Syntax: 


GET Kommando 


Der Parameter »Kommando« enthält ein Schlüsselwort zur Auswahl des 
auszuführenden Kommandos. Nachfolgend werden die einzelnen 
Kommandos besprochen. 


Abfrage des Datum und der Zeit 


Der GET-Befehl ermöglicht die Abfrage der Uhrzeit und des Datums aus 
einer Batchdatei heraus. Hierzu ist hinter GET der Name des betreffenden 
Parameters anzugeben. Der Wert wird dann über ERRORLEVEL 
zurückgegeben. Für GET sind die Aufrufe gemäß Tabelle 5.1 zulässig. 


ermittelt den TAG 1-31 
ermittelt den Monat 1-1 
ermittelt das Jahr 00-99 
ermittelt den Wochentag 
ermittelt die Stunde 0-23 
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MIN ermittelt die Minuten 0-59 
SEC ermittelt die Sekunden 0-59 


Tabelle 5.1: Kommandos von GET 


Der Code für den Wochentag ist gemäß der Aufstellung aus Tabelle 5.2 


codiert: 


Sonntag 
Montag 


Dienstag 
Mittwoch 


Donnerstag 
Freitag 
Samstag 





Tabelle 5.2: Codierung der Wochentage 


Über die Datums- und Uhrzeitabfrage lassen sich Programme zu 
bestimmten Uhrzeiten aus einem Batchprogramm heraus starten. 
Weiterhin kann über eine Batchdatei der jeweilige Wochentag berechnet 
und ausgegeben werden. 


Abfrage des freien DOS-Speichers 
Mit dem Kommando: 


GET /MEM 


läßt sich der freie Speicher im 640-Kbyte-DOS-RAM abfragen. Der Befehl 
gibt eine Zahl in ERRORLEVEL zurück, die den freien Speicher in 
Einheiten zu 4 Kbyte spezifiziert. Zur Berechnung des freien Speichers ist 
der Wert aus ERRORLEVEL mit 4096 zu multiplizieren: 


Wert (Kbyte) = ERRORLEVEL * 4095 


Das Ergebnis entspricht im wesentlichen dem unter DOS für Programme 
verfügbaren Speicher. Das DOS-Kommando MEM wird zwar in der Regel 
geringfügig andere Werte liefern, die Abweichung ist aber tolerierbar. Um 
Ihnen eine Vorstellung von den Möglichkeiten des Programmes GET zur 
vermitteln, möchte ich eine kleine Anwendung vorstellen. 
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Automatischer Programmstart 


In manchen Fällen ist es erwünscht, ein Programm zu einer bestimmten 
Uhrzeit oder zu einem bestimmten Datum automatisch zu starten. 
Denkbar ist zum Beispiel, daß ein System Nachts Daten aus einem 
Mailboxrechner abrufen soll. Unter DOS ist dies scheinbar nicht zu 
machen, da das Betriebssystem keine Zeitsteuerung besitzt. Hier muß 
vielmehr zur gewünschten Zeit das Programm explizit gestartet werden. 


Mit GET läßt sich eine einfache Lösung entwickeln, die ein oder mehrere 
Programme zu einer bestimmten Uhrzeit startet. Es muß sich lediglich um 
ein selbst ablaufendes Programm handeln und der Rechner muß 
eingeschaltet bzw. das Batchprogramm START.BAT muß aktiv sein. Dieses 
Programm überprüft zyklisch die Uhrzeit und startet ein Programm, 
sobald diese Zeit erreicht ist. Nachfolgendes Listing zeigt den Aufbau des 
Moduls: 


ECHO OFF 


File: START.BAT (C) Born G. V 1.0 

Aufruf: START STD MIN Programm <Parameter> 
Das Programm überwacht die Uhrzeit und 
aktiviert ein Programm zu einer vorge- 
gebenen Uhrzeit.Als Parameter sind die 
Startzeit in Stunden und Minuten, sowie 
der Programmname zu übergeben. 


IF '<1' == '' GOTO FEHLER 
IF '<2'! == '' GOTO FEHLER 
IF '%3' == '' GOTO FEHLER 


Meldung, daß Programm aktiv ist 

ECHO START ist aktiv, das Programm %3 

ECHO wird um %1:%2 aktiviert 

ECHO Abbruch durch Betätigung der ESC Taste 
Hilfsgrößen berechnen 

XCALC 31 + 1 

SET STEP=M1 

SET VAR=STD1 

GOTO ENV 

:M1 Minuten berechnen 

XCALC %2 + 1 

SET STEP=LOOP 

SET VAR=MINI 

GOTO ENV 

:LOOP prüfe ob die Stunde erreicht ist 

GET /STD 
Stunde >= 1. Parameter ? 

IF ERRORLEVEL %STD1% GOTO ENDO 

IF ERRORLEVEL %1 GOTO NEXT 

GOTO TASTE 

:NEXT prüfe ob die Minuten erreicht sind 

GET /MIN 

IF ERRORLEVEL %MIN1% GOTO ENDO 

IF ERRORLEVEL %2 GOTO START 
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: TASTE prüfe ob ESC gedrückt 

VKEY * 

IF ERRORLEVEL 28 GOTO LOOP 

IF ERRORLEVEL 27 GOTO END 

GOTO LOOP 

:START starte das Programm 

ECHO Die Zeit: %1:%2 Uhr wurde erreicht 

ECHO Das Programm: %3 wird gestartet 

:hier folgt die Anweisung zum Start des Programmes !!!!! 

%3 

GOTO END 

: FEHLER 

ECHO Falscher Aufruf, Parameter fehlt 

ECHO Aufruf: START Std Min Programm 

GOTO END 

:ENDO 

ECHO Die Startzeit ist bereits abgelaufen 

GOTO END 

Pas 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2 2 2 2 2 2 2 2 2 2 2 2 23 
"Unterprogramm" ENV, schreibt ERRORLEVEL in das 
in das Environment 

STEP = Marke Rücksprungadresse 


3 VAR = Name der Zielvariablen 
FE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2 2 2 2 2 2 2 2 2 2 2 23 














:ENV ermittle Errorlevel 
FOR %%a IN (0 1 2) DO IF ERRORLEVEL %%a00 SET $1=%%a 
GOTO %$1% 
2 ERRORLEVEL 200 - 255 
FOR %%a IN (0 1 2 3 A 5) DO IF ERRORLEVEL 2%%a0 SET $2 
FOR %%a IN (0 12 3456 78 9) DO IF ERRORLEVEL 2%$2 
$3=%%a 

korrigiere Überlauf über 255 
IF NOT '%$1%%$2%33$3%' == '259' GOTO SET_E 
FOR %%a IN (0 1 2 3 A 5) DO IF ERRORLEVEL 2%$2%%%a SET $3=%%a 
GOTO SET_E 














:1 109 =. 199 

:0 00 - 99 

FOR %%a IN (0 12 3456 78 9) DO IF ERRORLEVEL %$1%%%a0 SET 
$2=%%a 

FOR %%a IN (0 123456 789) DO IF ERRORLEVEL %$1%%$2%%%a SET 
53=%%a 

SET_E 

SET %VAR?%= 

IF NOT '%$1%'== '0' GOTO OK 

SET 3VAR$=%52%3$3% 

IF NOT '%$2%'== '0' GOTO OK 

SET 3VAR%=%$3% 

:OK 

SET $1= 

SET $2= 

SET $3= 


Rücksprung zur angegebenen Marke 
GOTO %STEP% 
: END 
SET STDI= 
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SET MINI1= 
ECHO ON 


Listing 5.6: Automatischer Programmstart 


Das Programm ist mit den drei Parametern: 


START Std Min Programm 


aufzurufen. In »Std« ist die Startzeit in Stunden anzugeben. In »Min« steht 
die Startzeit in Minuten und der dritte Parameter enthält den Namen der 
auszuführenden Programmdatei. Die Startzeit von 1:09 muss damit 
folgendermaßen angegeben werden: 


START 1 9 PROG1 


Eine O vor einer Ziffer ist nicht zulässig. In obigen Beispiel wird das 
Programm »PROGl« um 1:09 gestartet. Anschließend bricht das 
Batchprogramm ab. Um das Batchprogramm innerhalb der Schleife 
abzubrechen, brauchen Sie nur die ESC-Taste zu drücken. Im Vorgriff 
wurden zur Abfrage die Programm VKEY und XCALC (siehe unten) 
benutzt. 


Das Programm START.BAT benutzt noch einen weiteren Trick. Die 
ERRORLEVEL-Abfrage muß so formuliert werden, daß alle Zeiten oberhalb 
der Startzeit ausgeschlossen werden (>). Deshalb werden die Stunden- 
und Minutenwert sowie die um 1 erhöhten Werte benötigt. Die 
Berechnungen: 


STD+1 MIN+I 


lassen sich mit XCALC ausführen. Doch wie können die Ergebnisse 
zwischengespeichert werden? XCALC liefert alles als ERRORLEVEL 
zurück. Hier habe ich das Programm E.BAT so modifiziert, daß es den 
Wert aus ERRORLEVEL ermittelt und in einer Umgebungsvariablen 
ablegt. Leider kennt der DOS-Batchbefehlssatz keine Unterprogramme. 
Deshalb muß das »Unterprogramm« ENV mit GOTO-Sprüngen simuliert 
werden. In der Umgebungsvariablen SETP wird der Name einer 
Rücksprungadresse (z.B. LOOP) übergeben. Der Name ist vor dem 
Einsprung in ENV zu setzen. In der Umgebungsvariablen VAR muss dann 
noch der Name der Zielvariablen übergeben werden. 


ENV ermittelt dann den Wert aus ERRORLEVEL speichert diesen in den 
angegebenen Umgebungsvariablen und springt zur angegebenen Marke 
zurück. (Die ist zwar von hinten durch die Brust ins Auge, funktioniert 
aber recht gut). Die Technik läßt sich zusammen mit XCALC sehr gut 
einsetzen, um Ergebnisse von Berechnungen zwischenzuspeichern. Wer 
sich mit der Benutzung von Umgebungsvariablen in Batchprogrammen 
nicht auskennt, sei wieder auf /5/ verwiesen, wo dieses Thema 
erschöpfend behandelt wird. 
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Die Implementierung 


Die Implementierung von GET ist recht einfach. Im Hauptprogramm wird 
wieder die /?-Option in der Kommandozeile gesucht und gegebenenfalls 
die Online-Hilfe aktiviert. Andernfalls prüft GET mit den Anweisungen: 


ptr3=INST (kommando$, "/....") 
IF ptr% > 0 THEN CALL ..... 


das betreffende Kommando. Bei Datum und Uhrzeit wird der betreffende 
Parameter über die Unterprogramme GETDATE und GETTIME ermittelt. 


Der freie Speicher ist über den Aufruf der Funktion 51H des INT 21 und 
über den INT 12 zu ermitteln. Hintergrundinformationen zu diesem Thema 
finden sich im folgenden Kapitel im Zusammenhang mit dem Programm 
HWINFO.BAS. 


getdateDas Unterprogramm ermittelt das aktuelle Datum über die 
DATE$-Funktion und gibt den über Nr% bezeichneten Parameter (Tag, 
Monat, Jahr, Wochentag) an DOS als Fehlercode zurück. Dieser Parameter 
läßt sich über ERRORLEVEL auswerten. Der Wochentag muß direkt durch 
Aufruf der Funktion 2AH des INT 21 (siehe /1/) ermittelt werden. Die 
Funktion gibt den Wert in AL zurück. 


gettimeDas Unterprogramm ermittelt die aktuelle Zeit über die TIME$- 
Funktion und gibt den über Nr% bezeichneten Parameter (Sek., Min., Std.) 
an DOS als Fehlercode zurück. Dieser Parameter läßt sich über 
ERRORLEVEL auswerten. 


Erweiterungsvorschläge 


In /5/ findet sich das Programm CHECK, welches die Funktionalität von 
GET stark erweitert. Es erlaubt zum Beispiel die Abfrage der 
Versionsnummer von DOS, die Ermittlung des aktuellen Laufwerkes, der 
Plattenkapazität, der Bildschirmmodi etc. Bei Bedarf können Sie diese 
Funktionen in GET ebenfalls nachrüsten. 


! Funktion: Das Programm wird mit der Eingabe: 


GET <Option> 


XREF /2=50 (ce) Born Version 1.0 
Datei : get.bas Datum : 06-03-1992 Seite : 1 
Zeile Anweisung 

IKAKKKKKKKKKHKTKK KK KH TH HK KK KHK KH KH TH KH KH KH KK TH KK TH KH KH KK TH HK KK K AH KK TK AK KK KH IK A KH KU) 

'ı File : GET.BAS 

'l Vers. 1:0 

'ı Last Edit : 26.5.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBASIC 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 

| 

"1 

"1 

"1 
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! aufgerufen. Es erlaubt die Abfrage verschiedener 
! Systemprarameter und gibt die Werte als Error- 
! code an DOS zurück. Das Ergebnis läßt sich über 
! ERRORLEVEL auswerten. 
I 
! IF ERRORLEVEL 3 
| 
IKAKKKAKKKKKKHKKK KK KH TH TH KH TK HK KH TH KH TH KH KH KK KK KH TH KH KK KH KK TH KK KK KK KH KK KK KH KH KK A KH A KU ÜUO 
'ı Variable definieren 
1 ptr? = 0 
2 kommando$ = "" 


HH HH HHHHHHHHH HH HH H HH HH HH HH HH HH HH HH HH HH HEHE 
'# Hauptprogramm # 
HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH 


3 kommando$ = UCASES$S (COMMANDS) 'ı Parameter ? 

4 ptr% = INSTR (kommando$,"/?") '! Option /? 

5 IF ptr% <> O0 THEN 'ı Hilfsbildschirm 

6 RINT "GET (ce) Born Version 1.0" 
7 RINT 

8 RINT "Aufruf: GET <Option>" 

9 RINT 

10 RINT "Erlaubt die Abfrage bestimmter Parameter" 

11 RINT "GET /DAY ermittelt den Tag (1-31)" 


"GET /MONTH ermittelt den Monat (1-12)" 
INT "GET /YEAR ermittelt das Jahr (0-99)" 
INT "GET /WEEK ermittelt den Wochentag (0-6)" 
INT "GET /SEC ermittelt die Sekunden (0-59) " 
INT "GET /MIN ermittelt die Minuten (0-59)" 


Pr si u) 
HHHHHHH 
2 
HJ 





AA 








r 
Ww 
DyuUyuyutuiyuhuıyuhyunuhyuhmuhtyhd I 








17 RINT "GET /STD ermittelt die Stunden (0-23)" 

18 RINT "GET /MEM freier Hauptspeicher in 4 KB-Blöcken" 

19 RINT 

20 RINT "Die Fehlercodes lassen sich durch ERRORLEVEL 
auswerten." 

2E PRINT 

22 SYSTEM 

23 END IF 


'! Sprungverteiler für die einzelnen Kommandos 
24 ptr% = INSTR (kommando$, "/DAY") 'ı Option /DAY 
25 IF ptr% > 0 THEN CALL GETDATE (1) 


26 ptr% = INSTR (kommando$, "/MONTH") '! Option /MONTH 
27 IF ptr% > 0 THEN CALL GETDATE (2) 


28 ptr% = INSTR (kommando$, "/YEAR" '! Option /YEAR 
29 IF ptr% > 0 THEN CALL GETDATE (3) 





30 ptr% = INSTR (kommando$, "/WEEK" '! Option /Wochentag 
31 IF ptr% > O0 THEN CALL GETDATE (4) 











32 ptr% = INSTR (kommando$,"/SEC") '! Option /SEC 
33 IF ptr% > O0 THEN CALL GETTIME (1 
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34 ptr% = INSTR (kommando$, "/MIN") '! Option /MIN 
35 IF ptr% > O0 THEN CALL GETTIME (2) 


36 ptr% = INSTR (kommando$, "/STD") '! Option /STD 
37 IF ptr% > O0 THEN CALL GETTIME (3) 


38 ptr% = INSTR (kommando$, "/MEM") '! Option /MEM 
39 IF ptr% > O0 THEN 





40 REG 1, &H5100 'ı AX = 5100 -> read 
'! PSP Segm. Adr 

41 CALL INTERRUPT &H21 'ı Dispatcher INT 

42 IF (REG (0) AND &H0O1) > O THEN 'ı Fehler ? 

43 END (0) 'ı Fehlercode 

44 ELSE 

45 start& = REG(2) 'ı merke Adresse 

46 END IF 

47 CALL INTERRUPT &Hl2 'ı BIOS: GET RAM SIZE 

48 ram& = REG(1) '! RAM Größe 

49 ram& = ram& * &H3FF 

50 frei& = ram& - (start& * 16) 'ı berechne. freie 
Größe 

51 END (£frei& / 4096) '! Korrektur 4 Kbyte 
Block 

52 END IF 

53 END 'ı Ende 


HH HH HH HH HH HF HH HHHHEHHHEH 
'# Hilfsroutinen # 
HH HH HH HH HH HH HHHHEHHHEH 


54 SUB GETDATE (Nr%) 
'ı Ermittelt das Datum und gibt es als Fehlercode an DOS 
'ı 1 = Tag, 2 = Monat, 3 = Jahr, 4 = Wochentag 

55 LOCAL dat$ 

56 SELECT CASE Nr% 

57 CASE 1 

58 dat$ = MID$ (DATE$,1,2) 'ı Tag ermitteln 

59 END (VAL (dat$) 

60 CASE 2 

61 dat$ = MID$ (DATE$,4,2) '! Monat ermitteln 

62 END (VAL (dat$) 

63 CASE 3 


64 dat$ = MIDS$ (DATE$,9,2) 'ı Jahr ermitteln 
65 END (VAL (dat$) 
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66 CASE 4 


67 REG 1, &H2A00 '‘ı INT 21, 2AH GET 
DATE 

68 CALL INTERRUPT &H21 '! Wochentag in AL 

69 END (REG(1) AND &HFF) 


70 END SELECT 
71 END SUB 


72 SUB GETTIME (Nr%) 
'ı Ermittelt die Zeit und gibt sie als Fehlercode an DOS 
'! 1 = Sek., 2 = Min. 3 = Std. 

73 LOCAL tim$ 

74 SELECT CASE Nr% 

75 CASE 1 

76 tim$ = MIDS$ (TIMES$,7,2) 'ı Sek. ermitteln 

77 END (VAL (tim$)) 

78 CASE 2 

79 tim$ = MID$ (TIMES$S,4,2) 'ı Min. ermitteln 

80 END (VAL (tim$)) 

8l CASE 3 

82 tim$ = MIDS$S (TIMES$S,1,2) 'ı Std. ermitteln 


83 END (VAL (tim$)) 


84 END SELECT 
85 END SUB 


Ixkkk* Programm Ende **+*x*** 


Listing 5.7: GET.BAS 


FKEY: Abfragen von Funktionstasten aus 


Batchprogrammen 
Das Modul ASK bietet keine Möglichkeit zur Abfrage von Funktionstasten 
aus Batchdateien. Die Ursache liegt in der zurückgelieferten Codefolge (2 


Byte). Deshalb möchte ich noch ein kurzes Programm vorstellen, welches 
explizit die Abfrage von Funktionstasten aus Batchdateien erlaubt. 
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Der Entwurf 


Als erstes möchte ich auf die Anforderungen an das Programm eingehen. 
Das Programm FKEY erlaubt es, innerhalb einer Stapeldatei 
Funktionstasten abzufragen. Es besitzt dabei folgende Aufrufstruktur: 


FKEY <Text> 


Wird ein <Text> in der Kommandozeile angegeben, erscheint dieser nach 
dem Aufruf von FKEY auf dem Bildschirm, unabhängig von der ECHO- 
Einstellung (ECHO ON/ECHO OFF) der Batchdatei. Der Text darf beliebige 
Zeichen enthalten und ist durch ein Leerzeichen vom Programmnamen zu 
trennen. Damit erhalten Sie auch hier die Möglichkeit, beim Ablauf der 
Batchdatei eine Nachricht an den Benutzer zu senden: 


FKEY Bitte betätigen Sie eine Funktionstaste 

Bei einem Aufruf ohne Parameter entfällt die Textausgabe auf dem 
Bildschirm. FKEY wartet anschließend auf eine Benutzereingabe von der 
Tastatur. Der betreffende Tastaturcode wird dann an DOS übergeben und 
läßt sich über die ERRORLEVEL-Funktion aus Batchdateien abfragen. 
Hierbei gelten die gleichen Bedingungen für die Formulierung der Abfrage 
wie bei dem Programm ASK. 


Weiterhin soll sich das Programm mit der Option: 


FRKEY /? 
aktivieren lassen. Dann erscheint eine Anzeige mit folgenden 
Erläuterungen auf dem Bildschirm: 


FKEY (C) Born G. Version 1.0 
Aufruf: FKEY <Text> 


Das Programm erlaubt Abfragen von Funktionstasten 

aus Batchdateien und gibt die Codes als Fehlercode an 
DOS zurück. Die Fehlercodes lassen sich durch ERRORLEVEL 
auswerten. Das Feld <Text> ist optional und erlaubt die 
Angabe einer Benutzermeldung, die beim Aufruf erscheint. 


Bild 5.5: Meldung des Programmes FKEY 


Das Programm FKEY gibt nach Betätigung einer Funktionstaste das zweite 
Byte des Extended-ASCII-Codes zurück. Bei normalen Tasten wird dagegen 
der Wert 255 in ERRORLEVEL gespeichert. Tabelle 5.3 gibt eine grobe 
Übersicht der Codes der einzelnen Funktionstasten. 
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F7 65 
F8 66 
F9 67 
F1O 68 





Tabelle 5.3: Codes der Funktionstasten 


Weitere Tastencodes lassen sich der Dokumentation der Tastatur (siehe 
PowerBASIC-Handbuch) entnehmen. 


Ein Beispielprogramm 


Nachfolgendes Beispiel demonstriert die Verwendung von FKEY in einer 
Batchdatei. Hierbei wurde das Programm MENU.BAT an die 
Anforderungen von FKEY angepaßt. Nach dem Aufruf des 
Batchprogrammes erscheint folgende Maske auf dem Bildschirm: 


° 00000000000000 M E N U 00000000000000000 ° 
TIIITIIITIILTIILTIILTILLTILTLTILTLTILTLTILTLILTLTLLTLLLIIT: 
oe ar% Programmauswahl EEK ® 
® F1 Ende 2 
° F2 Textverarbeitung ® 
° F3 Tabellenkalkulation 9. 
® F4 Datenbank 2 
o Ber o 


EIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 


Bitte eine Funktionstaste betätigen: 


Bild 5.6: Menüsteuerung mit FKEY 


Der Benutzer kann nun die verschiedenen Programme durch Eingabe 
einer Funktionstaste aktivieren. Bei ungültigen Eingaben wird die Maske 
aufgefrischt und die Abfrage erscheint erneut. Das Programm läßt sich 
durch die Eingabe der Taste Fl beenden. Das zugehörige Batchprogramm 
besitzt dabei folgenden Aufbau: 


ECHO OFF 


Programm: MENU1.BAT 

Version: 1.0 (25.5.92) (c) Born 

Funktion: Demonstration einer Menüverwaltung 
unter Verwendung von FKEY 


Maske aufbauen 
: LOOP 
CLS 
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ECHO EIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII» 


ECHO ° 00000000000000 M E N Ü 00000000000000000 ° 
ECHO ITIIIIIIIIIIIIIITIIITIILLTIILTIILTLTILLLILTLILTLTILTLLLILT: 
ECHO ° *%*%* Programmauswahl RER “ 
ECHO ° 2 
ECHO ° F1 Ende ” 
ECHO ° F2 Textverarbeitung ° 
ECHO ° F3 Tabellenkalkulation 5 
ECHO ° F4 Datenbank £ 
ECHO ° ES. === 5 
ECHO ° 5 


ECHO EIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIY 
ECHO. 


Hier wird FKEY zur Benutzerabfrage verwendet 
FKEY Bitte eine Funktionstaste betätigen: 


Auswertung der Benutzereingaben 
werte zuerst immer die höheren Codes aus 
zahl F1 -> Code = 59, F2 = 60, usw. 


IF ERRORLEVEL 63 GOTO LOOP 

IF ERRORLEVEL 62 GOTO L3 

IF ERRORLEVEL 61 GOTO L2 

IF ERRORLEVEL 60 GOTO L1 

IF ERRORLEVEL 59 GOTO Exit 

GOTO loop 

a a Aufruf der Textverarbeitung 
D TEXTE 

ORD 

Dia 
OTO loop 

:L2 Aufruf der Tabellenkalkulation 
CD 123 

LOTUS 

CDs: 

GOTO loop 

13 Aufruf des Datenbankprogrammes 
CD DBASE 

DBASE 

cD.. 
GOTO loop 
:Exit 
ECHO ON 


























€ 
Ww 
C 
G 





Listing 5.8: Batchprogramm zur Menüsteuerung 
Einzige Änderungen an dem Programm gegenüber MENU.BAT sind die 
Texte der Maske sowie die Codes zur Abfrage der Funktionstasten. 


Die von den Funktionstasten zurückgelieferten Codes lassen sich übrigens 
mit dem Programm E.BAT ermitteln. Wird FKEY über das Modul aktiviert, 
zeigt E.BAT anschließend den DOS-ERRORLEVEL-Code im Klartext auf 
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dem Bildschirm an. Damit läßt sich recht einfach feststellen, welche 
Funktionstaste welchen Code liefert. 


Die Implementierung 


Doch nun möchte ich auf die Implementierung zu sprechen kommen. Das 
Programm entspricht vom Aufbau dem Modul ASK, so daß auf ein 
Hierarchiediagramm verzichtet wird. Es besteht nur aus einem 
Hauptmodul. Findet sich in der Kommandozeile der Parameter /?, gibt 
FKEY den Hilfebildschirm aus und bricht (mit dem Fehlercode 0) ab. 


Ohne Option wird der eventuell in der Kommandozeile vorhandene Text 
mittels der PowerBASIC-Funktion COMMANDS$ ermittelt und per PRINT- 
Kommando ausgegeben. Liegt kein Text vor, gibt COMMANDS einen 
Leerstring zurück. 


Dann wird die Tastatur mit INKEY$ gelesen. Liegen keine Zeichen im 
Tastaturpuffer vor, wartet das Programm in einer Eingabeschleife. Bei 
normalen Tasteneingaben endet das Programm mit dem Code 255. Bei 
Funktionstasten wird das 2. Codebyte als Code an DOS zurückgegeben. 
Einzelheiten sind dem nachfolgenden Listing zu entnehmen. 


Erweiterungsvorschläge 


Das Programm FKEY kann so optimiert werden, daß nur bestimmte 
Funktionstasten (z.B. Fl, F2 etc.) akzeptiert werden. Dann kann die 
Auswertung in einer Batchdatei etwas einfacher gestaltet werden. 


! Funktion: Das Programm wird mit der Eingabe: 


FKEY <Text> 


xREF /2=50 (ce) Born Version 1.0 
Datei : fkey.bas Datum : 06-02-1992 Seite : 1 
Zeile Anweisung 

IKAKKKKKKKKKHKTKH KK KH TH HK KK HK KK TH KH TH KH KH TH KK TH KK KK KH KH KK HK IK KH KK KK TH AH KH A KH IK KA KH KU 

'ı File : FKEY.BAS 

'l Vers. 1,0 

'ı Last Edit 2 26,5.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBASIC 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 

| 

| 

ir 

"1 


Bu aufgerufen. Es erlaubt die Abfragen von 
Funktions- 
"1 tasten aus Batch-Dateien. Der <Text> wird auf 


Ft Bildschirm ausgegeben. Dann wartet ASK auf die 


1 Eingabe. Das Ergebnis wird als Errorcode an DOS 
1 übergeben und läßt sich über ERRORLEVEL 
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" IF ERRORLEVEL 3 
" 


Yu abfragen. 


255 


TKRKAKKKAKKKKHHKK KK KK TH HK TH KH HK TH KH KK KK KH KH TH KH KK KH KK KH KK KK KH KH TH KH KK KH KK KH HK AH U KU 


'ı Variable definieren 
1 zchn$ = "" 
ptr? = 0 
3 kommando$ = "" 


N 


"HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HHHHHH 


'# Hauptprogramm 


# 


"HHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HH HH HHHHHHHH 


4 kommando$ = COMMANDS ! 


Parameter ? 


Hilfsbildschirm 


(ce) Born Version 1.0" 


5 ptr% = INSTR (kommando$,"/?") '! Option /? 
6 IF ptr% <> 0 THEN n 

7 PRINT "FKEY 

8 PRINT 

9 PRINT "Aufruf: FKEY <Text>" 

10 PRINT 


11 PRINT "Das Programm erlaubt die Abfragen von 


Funktionstasten" 


12 PRINT "aus Batchdateien und gibt die Codes als Fehlercode 


an " 


13 PRINT "DOS zurück. Die Fehlercodes lassen sich durch 


ERRORLEVEL" 


14 PRINT "auswerten. Das Feld <Text> ist optional und erlaubt 


die" 
15 PRINT "Angabe einer Benutzermeldung, 
erscheint." 











16 PRINT 
17 SYSTEM 
18 END IF 


19 PRINT kommando$;" "; 
20 zchn$ = INKEYS 


21 WHILE (LEN (zchn$) = 0) 
22 zchn$ = INKEY$ 
23 WEND 
24 IF LEN(zchn$) = 1 THEN 
25 END (255) 
Funktionstaste 
26 ELSE 
27 END (ASC(MIDS$S (zchn$,2,1))) 
28 END IF 


29 END ASC (zchn$) 


Ixkkk* Programm Ende **+**** 


Listing 5.9: FKEY.BAS 


die beim Aufruf 


Text ausgeben 
Tastatur abfragen 
Leereingabe 
Tastatur abfragen 


! keine 


! Tastencode 


Ende 
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XCALC: Berechnungen in Batchdateien 


Eine weitere Sache, die ich bisher vermisse, ist die Möglichkeit von 
Berechnungen in Batchprogrammen. In /5/ habe ich daher ein 
entsprechendes Modul vorgestellt, welches gänzlich neue Möglichkeiten 
eröffnet (Schleifen, Berechnungen, etc... Aus diesem Ansatz heraus 
wurden die Funktionen (mit einer kleinen Einschränkung) nach 
PowerBASIC portiert. Die Einschränkung besteht darin, daß das 
Programm die Ergebnisse an DOS als Fehlercode zurückgibt, also auf den 
Zahlenbereich zwischen O und 255 begrenzt ist. Trotzdem ergeben sich 
damit interessante Möglichkeiten. 


Die Anforderungen 


Der XCALC-Befehl erlaubt Berechnungen innerhalb eines 
Batchprogrammes. Die Ergebnisse werden dabei als Fehlercode an DOS 
zurückgegeben und lassen sich per ERRORLEVEL abfragen. Mit dem 
Aufruf: 


XCALC /? 


läßt sich die Online-Hilfe aktivieren. 
Allgemein besitzt XCALC jedoch folgende Aufrufsyntax: 
XCALC Ausdruck 
Der Parameter Ausdruck ist zwingend vorgeschrieben und nimmt den zu 


berechnenden Ausdruck auf. XCALC beherrscht nur die vier 
Grundrechenarten: 


+ Addition 

- Subtraktion 

* Multiplikation 
/ Division 


Dabei wird die Punktrechnung vor der Strichrechnung ausgeführt. 
Klammern sind in dem Ausdruck nicht erlaubt. Gültige Ausdrücke sind 
dann zum Beispiel: 

3+15* 2 - 10 

3#a/ 3+4 

-5 - 17 

13 - -2 


Als Werte lassen sich vorzeichenbehaftete Ganzzahlen verwenden. Die 
Ergebnisse dürfen im Zahlenbereich von O bis 255 liegen. Ist das Ergebnis 
einer Operation größer als 255 oder kleiner 0, tritt ein Überlauf auf und 
das Programm bricht mit folgender Meldung ab: 


Bereichsüberlauf - Wert : xxxx 
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An DOS wird der Fehlercode 255 zurückgeliefert. Dies ist bei der 
Verwendung von CALC zu beachten. Ungültige Ausdrücke sind zum 
Beispiel: 


255 +1 ! führt zum Überlauf 
100 * 3 ! führt zum Überlauf 


Ähnliches gilt, falls ein ungültiger Ausdruck als Parameter angegeben 
wird. Dann erscheint die Meldung: 


Fehler im Ausdruck: xxxxxxx 


und der Code 255 wird zurückgegeben. 


Interessant ist die Möglichkeit, als Ausdruck den Inhalt einer 
Umgebungsvariablen anzugeben. Mit: 


wird zur Laufzeit des Batchprogrammes der Inhalt der 
Umgebungsvariablen a eingesetzt. Steht dort zum Beispiel die Zahl 3, wird 
diese in die Berechnung eingebracht. 


ECHO OFF 


File: LOOP.BAT (C) Born G. V 1.0 
Aufruf: START 

Das Programm demonstriert die Verwendung 
von Schleifen in Batchprogrammen. 


: Meldung, daß Programm aktiv ist 

ECHO LOOP wird nun aktiv und beginnt mit der Schleife 
SET C1=1 

:LOOP Beginn der Schleife 

ECHO Schleifenzähler = %C1% 


Schleifenzähler erhöhen 
XCALC %C1% + 1 
SET STEP=M1 
SET VAR=C1 
GOTO ENV 
:Ml Ende erreicht? 
IF ERRORLEVEL 10 GOTO EXIT 
GOTO LOOP 
Pas a 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 23 
"Unterprogramm" ENV, schreibt ERRORLEVEL in das 
in das Environment 
STEP = Marke Rücksprungadresse 
R VAR = Name der Zielvariablen 
Pie a 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2 2 2 2 2 2 2 2 2 2 2 2 23 
:ENV ermittle Errorlevel 
FOR %%a IN (0 1 2) DO IF ERRORLEVEL %%a00 SET $1=%%a 
GOTO %$1% 
2; ERRORLEVEL 200 - 255 
FOR %%a IN (0 1 2 3 A 5) DO IF ERRORLEVEL 2%%a0 SET $2=%%a 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


258 PowerBasic-Programmierhandbuch 


FOR %%a IN (0 12 3456 78 9) DO IF ERRORLEVEL 2%$2%%%a SET 
$3=%%a 

korrigiere Überlauf über 255 
IF NOT '%$1%%$2%%$3%' == '259' GOTO SET_E 
FOR %%a IN (0 1 2 3 A 5) DO IF ERRORLEVEL 2%$2%%%a SET $3=%%a 
GOTO SET_E 














Ru 100..-. 199 

:0 00 = .99 

FOR %%a IN (0 123456 78 9) DO IF ERRORLEVEL %$1%%%a0 SET 
$2=%%a 

FOR %%a IN (0 123456 789) DO IF ERRORLEVEL %$1%%$2%%%a SET 
$3=%%a 

SET_E 

SET 3VAR$2=%51%3$52%3%$3% 

IF NOT '%$1%'== '0' GOTO OK 

SET 3VAR$=%$52%3$3% 

IF NOT '%$2%'== '0' GOTO OK 

SET 3VAR%=%$3% 

OK 

SET $1= 

SET $2= 

SET $3= 


Rücksprung zur angegebenen Marke 
GOTO %STEP% 
:EXIT 
SET Cl1= 
ECHO ON 


Listing 5.10: Schleifen in Batchprogrammen 


Die Implementierung 


Bei der Implementierung kann auf die Überlegungen bezüglich des Moduls 
CALC zurückgegriffen werden. Lediglich folgende Unterschiede sind zu 
beachten: 


«e Die Eingaben werden aus der Kommandozeile übernommen. 


e Nach einer Berechnung wird das Ergebnis als Errorcode an DOS 
zurückgegeben und XCALC endet. 


«e Auf die Unterstützung verschiedener Zahlensystem kann bei 
XCALC verzichtet werden. 


Nachfolgendes Bild gibt das Hierarchiediagramm von XCALC wieder. 
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vn 
. 





decode getval 


getop 


fehler 











Bild 5.7: Hierarchiediagramm von XCALC 


Die Beschreibung der einzelnen Module findet sich im Kapitel 3 (CALC). 
Aus diesem Programm wurden die Module decode zur Dekodierung der 
Eingaben, getval zur Separierung der Terme, getop zur Separierung der 
Operatoren und skipblank zum Entfernen der Leerzeichen übernommen. 
Das Unterprogramm decl wandelt die Strings in Dezimalzahlen um. 
Weitere Einzelheiten sind dem Listing und der Beschreibung des 
Programmes CALC zu entnehmen. 


xREF /2=50 (ce) Born Version 1.0 
Datei : xcalc.bas Datum : 06-02-1992 Seite : 1 
Zeile Anweisung 


TKRRKKKKKKKK KK KT KK KK KK KK KK KK KK KT KT KT KT KT KT KT KT KT KK N NK N NK N KK a a a ı 


'ı File : XCALC.BAS 
'ı Vers. >10 

'ı Last Edit : 16.5.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBASIC 


Funktion: Das Programm wird mit der Eingabe: 





1 
| 
1 
| 
'! Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 
1 
| 
! XCALC <Ausdruck> 

1 

| 


aufgerufen. Es liest den Ausdruck ein und 
s das Ergebnis (muß zwischen 0 und 255 liegen) und 
gibt dieses in ERRORLEVEL zurück. 


ı 


berechnet 
1 
1 

1 

1 


ı 


XCALC 3+5 
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| 

21 Damit lassen sich Berechnungen in Batchdateien 
u ausführen. 
IKAKKKKKKKKKHKTKH KK KT TH KH TK HK KK HK KH TH KH KH KH AK KK KH TH HK TH AK KH KH KK TK KH KK KH KH TH KK TK AH K A KH A KU &ÜUO 
'ı Variable definieren 

'ı globale Konstanten 


1 %true = -1: %false = 0 
2 %add = 1: %sub = 2: mul = 3: div = 4'! code für 
Operationen 


'ı globale Variablen 
3 <maxentry = 10 


4 DIM wertx% (1:%maxentry) '! Speicher für 10 
Parameter 
5 DIM opc% (1:%maxentry) vl u " 10 
Operatoren 
6 wert% = 0 'ı Ergebnis 
7 errx% = 0 'ı Fehlernummer 
8 count% = 0 'ı Zahl der Parameter 
9 lang% = 0 'ı Länge Eingabetext 
10 text$ = "" 'ı Eingabetext 


11 ptr? = 0 
HH HEHE HH HH HH HH HH HH RHHH HH HH HH HH HH HHEHHHEH 
'# Hauptprogramm # 
HH HEHE HH HH HH HH HRHHH HH HH HH HH HH HHHHEHHHEH 


12 ON ERROR GOTO fehlerl 











13 text$ = COMMAND$S 'ı Parameter ? 

14 ptr% = INSTR (text$,"/?") '! Option /? 

15 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 

16 PRINT "X CALC (ce) Born Version 1.0" 
17 PRINT 

18 PRINT "Aufruf: XCALC <Ausdruck>" 

19 PRINT 

20 PRINT "Das Programm berechnet den angegebenen Ausdruck und" 
21 PRINT "gibt das Resultat als Fehlercode an DOS zurück." 

22 PRINT "Die Ergebnisse dürfen zwischen 0 und 255 liegen und" 
23 PRINT "lassen sich mit ERRORLEVEL auswerten. Beispiel:" 

24 PRINT 

25 PRINT "XCALC 3 + 5" 

26 PRINT 

27 SYSTEM 

28 END IF 





29 ptr® = 1 


30 lang% = LEN(text$) 'ı Länge 
Parameterstring 

31 CALL decode (text$) 'ı berechne 
Ergebnis 
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32 
33 
34 
35 


36 
37 
38 
39 
40 
4l 


42 


43 





59 
60 
61 
62 


IF errx% <> 0 THEN 'ı Fehlerabbruch 
PRINT "Fehler im Ausdruck : ";text$ 

END 255 
END IF 


IF (wert% > 255) OR (wert% < 0) THEN 





PRINT "Bereichsüberlauf Wert : ";wert% 'ı Fehlerexit 
END (255) 

ELSE 
END (wert?) 

END IF 

END 'ı Ende 


HH HH HH HH HH HH HH HH HHHHEHHHEH 
'# Hilfsroutinen # 
HH HH HH HH HHHHHHHHHHHHEHHHEH 


SUB decode (text$) 


SHARED lang%, count?%, errx%, wert? 
SHARED wertx%(), opc?%() 


init lokale variable 
scan String 


ptr® = 1: errx% = 0: count? = 1 ! 
WHILE ptr% <= lang% ! 
CALL getval (ptr?%,wertx?% (count?) ) 'ı ermittle 1. Parameter 
IF errx% > 0 THEN EXIT SUB 'ı Error Exit 
' IF wertx% (count%) = 0 THEN GOTO ready '! WHILE EXIT 
CALL getop (ptr?,opc% (count?) ) ! ermittle 1. Operator 
IF errx% > 0 THEN EXIT SUB ! Error Exit 
INCR ptr% ! hinter Operator 
INCR count% ! nächste Zelle 
WEND 


DECR count% ! Zahl der Werte 
ready: 

'ı nur 1 Parameter gefunden, oder Leereingabe ? 

IF count% < 2 THEN 


wert% = wertx?%(1) 
EXIT SUB 
END IF 
'ı Punktrechnung "*" "/" vorziehen !!! 
FOR 1% = 1 TO count%-1 
IF opc% (1%) = %mul THEN 
wertx% (1%+1) = wertx% (1%) * wertx%(1%+1) 
ELSE 
IF opc% (1%) = %div THEN 
wertx% (1%+1) = INT(wertx% (1%) / wertx%(1%+1)) 
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69 END IF 
70 END IF 
71 NEXT 1% 





'ı Strichrechnung "+" "-" nachziehen !!! 

72 FOR 1% = 1 TO count%-1 

73 WHILE (opc% (1%) = %mul) OR (opc% (1%) = %div) '! skipA*B 
Er 

74 INCR 1% 

75 WEND 

76 j% = 1%+1: flag% = %false '! clear gefunden 

77 WHILE (opc% (j%) = %mul) OR (opc%(j%) = %div) '! skipA+B 
a er 

78 INCR j% : £lag% = true '! setze gefunden 

79 WEND 

80 IF opc% (1%) = %add THEN 

8l wertx% (j%) = wertx% (1%) + wertx%(j%) 

82 ELSE 

83 IF opc% (1%) = %sub THEN 

84 wertx% (j%) = wertx% (1%) - wertx%(j%) 

85 END IF 


86 END IF 
87 IF flag% THEN 1% = j%-1 
88 NEXT 1% 


' FOR n% = 1 TO count? 


' PRINT "n= ";n%;" wert ";wertx%(n%);" opc "; opc%(n%) 
' NEXT n% 
89 wert?‘ = wertx% (count?) 'ı Endergebnis 
90 END SUB 


91 SUB getval (ptr?%, wert?) 


92 SHARED text$, errx%, count%, lang?, vorz% 
93 LOCAL tmp?%, zchn$, first?%, last% 


94 vorz% = 1 : tmp% = 0 'ı init Hilfsvariablen 


'! suche Anfang und Ende der Zahl 
95 CALL skipblank (ptr?,text$) 'ı skip führende blanks 


'ı Vorzeichen bearbeiten 


96 zchn$ = MID$ (text$,ptr?%,1) '! hole Zeichen 
97 IF (zchn$ = "-") THEN 

98 vorz% = -1 'ı negative Zahl 
99 INCR ptr% 

100 ELSE 
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101 IF (zchn$ = "+") THEN 'ı Vorz. überlesen 
102 INCR ptr?% 

103 END IF 

104 END IF 


105 zchn$ = MID$ (text$,ptr?%,1) 'ı hole Zeichen 
106 first% = ptr% '! merke Anfang Zahl 
'ı suche Ende der Zahl = " nzunyn.n_n.nen.n/m 
107 WHILE (INSTR(" +-*/",zchn$) = 0) AND ptr% <= lang% 
108 INCR ptr% 'ı hole nächstes Zeichen 
109 zchn$ = MID$ (text$,ptr%,1) '! hole Zeichen 
110 WEND 


'ı merke Ende der Zahl 
111 IF ptr% < lang% THEN 


112 last% = ptr% - 1 'ı auf letzte Ziffer 
113 ELSE 
114 last% = lang? '! auf Textende 


115 END IF 
116 CALL deci (first%, last%, wert?) 'ı Zahl decodieren 
117 END SUB 


118 SUB getop (ptr%,opcode%) 


'! ermittle operator (+ - * / ) 


119 SHARED errx%, text$, lang% 
120 LOCAL zchn$, tmp% 





121 CALL skipblank (ptr?%,text$) 'ı überlese blanks 


122 IF ptr% >= lang% THEN 

123 opcode% = 0 'ı nichts gefunden 
124 EXIT SUB 

125 END IF 


126 zchn$ = MID$ (text$,ptr%,1) 'ı hole Zeichen 
127 tmp% = INSTR ("+-*/",zchn$) '! decodiere Operator 
128 SELECT CASE tmp% '! Zuweisung Opcode 


129 CASE 1 
130 opcode% = %add 'ı Addition 


131 CASE 2 
132 opcode% = %sub '! Subtraktion 


133 CASE 3 


134 opcode% = mul '! Multiplikation 
135 CASE 4 
136 opcode% = %div 'ı Division 
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137 CASE ELSE 
138 errx% = 3 '! ungültiger Operator 
139 opcode% = 0 
140 END SELECT 
141 END SUB 
142 SUB skipblank (ptr%,text$) 
We a a a EN a Er a a an a a a a a HE a a Fa a A a a nn 
'ı zähle führende Blanks in einer Zeichenkett 
'l text$ = Zeichenkette, zeiger% = Zeiger in Kette 
WEBER Bin nis a E rnii  anEEsrBhsuk aan 
143 SHARED lang? 
144 WHILE (ptr% =< lang?) and (MID$ (text$,ptr%,1) =" ") 
145 INCR ptr% 
146 WEND 
147 END SUB 
148 SUB deci (first%,last%,wert?) 
N ee a 
'! decodieren der Dezimalzahl 
ET ae ae ae Er a En a a a a Er ET En En a er an Ze a Se I ea na ae LE ae Fein 
149 SHARED text$, vorz%, errx?% 
150 LOCAL tmp%, b% 
151 wert? = O0 th INIE 
152 FOR b% = first% TO last? 'ı alle Ziffern 
153 zchn$ = MID$ (text$,b%,1) 'ı hole Ziffer 
154 'ı Achtung VAL funktioniert nicht, da 0 bei Fehler 
geliefert wird 
155 tmp% = INSTR ("0123456789",zchn$) '! Wert der Ziffer 
'ı gültige Ziffer ???? 
156 IF tmp% = 0 THEN 
157 errx% = 1 '! Fehlerexit 
158 ELSE 
159 tmp% = tmp% - 1 '! Wert korrigieren 
160 wert% = wert? * 10 + (tmp% * vorz%) '! Ziffer auf Zahl 
addieren 
161 END IF 
162 NEXT b% 
163 END SUB 
164 fehlerl: 


'ı Abfangroutine für PowerBASIC Fehler 
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165 IF ERR = 6 THEN 

166 PRINT "Overflow Error"; 'ı Fehlermeldung 
167 ELSE 

168 PRINT "Fehler : ";ERR; 

169 END IF 


170 END 
171 RETURN 


!lkk*k** Programm Ende ****+*x* 


Listing 5.11: XCALC.BAS 


WAIT: Zeitverzögerung in Batchprogrammen 


WAIT ist ein weiteres Programm, welches sich auf der beiliegenden 
Diskette befindet. Es ermöglicht, den Ablauf eines Batchprogrammes für 
eine gewisse Zeit zu unterbrechen. Während bei ASK und PAUSE der 
Ablauf bis zur ersten Benutzereingabe ruht, gibt WAIT die Kontrolle nach 
einer gewissen Zeitdauer wieder an DOS zurück und der Batchjob kann 
fortgesetzt werden. Mit: 


WAIT /? 


wird die Online-Hilfe aktiviert. Allgemein gilt folgende Aufrufform: 


WAIT Time 


Mit Time ist die Verzögerungszeit in Sekunden zu definieren. Hier lassen 
sich auch Kommazahlen mit angeben. Falls dieser Parameter fehlt oder 
falsch angegeben wurde, erscheint eine Fehlermeldung: 


Zeitangabe ungültig 


und der Fehlercode 255 wird an DOS übergeben. Gültige Werte für die 
Verzögerungszeit sind zum Beispiel: 


wAIT 1 
WAIT 0.5 
wWAIT 20 


Die Zeit kann allerdings von System zu System leicht variieren, da die 
Ladezeiten unterschiedlich sind. Das folgende kleine Beispiel demonstriert 
den Einsatz innerhalb eines Programmes: 


ECHO OFF 


: File: WARTE.BAT (C) Born G. V 1.0 

: Aufruf: WARTE 

: Das Programm demonstriert den Einsatz von 
: WAIT. 
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Meldung, daß Programm aktiv ist 
ECHO Überprüfe den Druckerstatus an LPT1 
:LOOP 
LPTCHK 
IF ERRORLEVEL 145 GOTO FEHLER 
IF ERRORLEVEL 144 GOTO EXIT 
: FEHLER Meldung 
ECHO Drucker gestört 
ESC 07 
WAIT 5 
GOTO LOOP 
:EXIT 
ECHO ON 














Listing 5.12: Anwendung von WAIT 


Hier kommt übrigens bereits das kleine COM-Programm LPTCHK zum 
Einsatz. Es prüft, ob der Drucker gestört ist. In diesem Fall wird eine 
Fehlermeldung ausgegeben und fünf Sekunden bis zur nächsten Prüfung 
gewartet. 


Die Implementierung 


Die Implementierung ist recht einfach, so daß WAIT nur aus dem 
Hauptprogramm besteht. Wird beim Aufruf die Option /? angegeben, dann 
erscheint der Bildschirm mit der Online-Hilfe. Andernfalls liest WAIT den 
Parameter und speichert diesen in zeit@@. Dann wird die Funktion DELAY 
aufgerufen. Nach der Wartezeit endet das Programm. Einzelheiten sind 
dem Listing zu entnehmen. 


xREF /2=50 (ce) Born Version 1.0 
Datei : wait.bas Datum : 06-02-1992 Seite : 1 
Zeile Anweisung 


TKRKKKKAKKKKHKKKHKHK KK KK KK TH KH KH KH KH IK KH KK KH KK KH KK KK KH KK HK KH KK TH KH KH KH KH KH KH KH KH &ÜUO 


'ı File : WAIT.BAS 

'ı Vers. ». 1.20 

'ı Last Edit : 16.5.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBASIC 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 


Funktion: Das Programm wird mit der Eingabe: 
WAIT <Sekunden> 


aufgerufen. Das Programm wartet die im Para- 
meter <Sekunden> angegebene Zeit und terminiert 
anschließend. Damit läßt sich der Ablauf einer 
Batchdatei für n Sekunden verzögern. (n = 1 bis 
"1 255 Sekunden. 


TRKKAKKKAKKKKHKKK KK KK TH HK KH KH HK KH KH HK KH KK HK KK KH KK KK TH KH KK KK TH KH KK KK KH KK KH HK AH U KU 


I 
| 
| 
| 
| 
I 
! 
| 
I 
| 
| 
| 
| 
I 


'ı Variable definieren 
' EEE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 20 
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Hr 


Zeit@@ = O0 
2 kommando$ = "" 


HH HH HHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HH 
'# Hauptprogramm # 
HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH 


3 kommando$ = COMMAND$S 'ı Parameter ? 
4 ptr% = INSTR (kommando$,"/?") '! Option /? 
5 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 
6 PRINT "WAIT (ce) Born Version 1.0" 
7. PRINT 
8 PRINT "Aufruf: WAIT <Sekunden>" 
g PRINT 
10 PRINT "Das Programm wartet n (1 bis 255) Sekunden." 
11 PRINT 
Ss 


YSTEM 
13 END IF 





14 Zeit@@ = VAL(kommando$) 


15 IF Zeit@@ = 0 THEN 

16 PRINT "Zeitangabe ungültig" 
17 SYSTEM 

18 END IF 


19 DELAY Zeit@@ 
20 END 'ı Ende 


Ixkkk* Programm Ende **+**** 


Listing 5.13: WAIT.BAS 


VKEY: Abfragen des Tastaturpuffers aus 
Batchprogrammen 


Die Module ASK und FKEY unterbrechen den Ablauf des 
Batchprogrammes und warten auf eine Benutzereingabe. Manchmal ist es 
jedoch erwünscht, daß lediglich geprüft wird, ob die Tastatur 
zwischenzeitlich betätigt wurde, ohne das Programm zu unterbrechen. Für 
diesen Zweck wurde das Programm VKEY (Verify Key) entwickelt. 


Der Entwurf 


Das Programm VKEY wird wie die beiden anderen Programme ASK und 
FKEY innerhalb einer Stapeldatei aufgerufen: 


VKEY <Text> 
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Wird ein <Text> in der Kommandozeile angegeben, erscheint dieser nach 
dem Aufruf von VKEY auf dem Bildschirm, unabhängig von der ECHO- 
Einstellung (ECHO ON/ECHO OFF) der Batchdatei. Der Text darf beliebige 
Zeichen enthalten und ist durch ein Leerzeichen vom Programmnamen zu 
trennen. Dann prüft VKEY den Tastaturpuffer auf Zeichen und gibt einen 
Code an DOS zurück. Hierbei gilt: 








Code 
0| |keine Zeichen im Puffer 
255| |Funktionstaste gedrückt 
1-254| |Code der gedrückten Taste 


Der betreffende Code läßt sich über die ERRORLEVEL-Funktion aus 
Batchdateien abfragen. Hierbei gelten die gleichen Bedingungen für die 
Formulierung der Abfrage wie bei dem Programm ASK. 


Weiterhin soll sich das Programm mit der Option: 


VKEY /? 


aktivieren lassen. Dann erscheint eine Anzeige mit dem Hilfstext auf dem 
Bildschirm. 


Die Implementierung 


Das Programm entspricht vom Aufbau dem Modul ASK, so daß auf ein 
Hierarchiediagramm verzichtet wird. Es besteht nur aus einem 
Hauptmodul. Findet sich in der Kommandozeile der Parameter /?, gibt 
VKEY den Hilfebildschirm aus und bricht (mit dem Fehlercode 0) ab. 


Ohne Option wird der eventuell in der Kommandozeile vorhandene Text 
mittels der PowerBASIC-Funktion COMMANDS ermittelt und per PRINT- 
Kommando ausgegeben. Liegt kein Text vor, gibt COMMANDS einen 
Leerstring zurück. 


Dann wird die Tastatur mit INKEY$ gelesen. Liegen keine Zeichen im 
Tastaturpuffer vor, endet das Programm mit dem Code O. Bei normalen 
Tasteneingaben terminiert das Programm mit dem Code der Taste. Bei 
Extended-ASCII-Codes wird der Wert 255 zurückgegeben. Einzelheiten 
sind dem nachfolgenden Listing zu entnehmen. 


REF /2=50 (ce) Born Version 1.0 
Datei : vkey.bas Datum : 06-04-1992 Seite : 1 
Zeile Anweisung 


TRKKAKKKAKKKKHKKHTK KHK TH KH TH KH KH HK KH KH KK KK KH KH KH KK KK HK KK KH KK TH KK KH KK KH KH KH HK A KA &ÜUO 


'ı File : VKEY.BAS 
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'ı Vers. 1.0 

'ı Last Edit : 26.5.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBASIC 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 


Funktion: Das Programm wird mit der Eingabe: 
VKEY <Text> 
aufgerufen. Es prüft ob Tasteneingaben vorliegen 


und gibt den Code an DOS zurück. <Text> wird auf 
dem Bildschirm ausgegeben. Dann wartet VKEY auf 


die 
N Eingabe. Das Ergebnis läßt sich über ERRORLEVEL 
! 

un IF ERRORLEVEL 3 

| 


"1 abfragen. 
IKAKKKKKKKHKKHKTKH KK KK TH KH TK HK KK HK KH KH KH HK AK KK KH TH AH KK KK TH KK KK KK AK KH TH KK TK AH KK A KH A KU &ÜUO 
'ı Variable definieren 

1 zchn$ = "" 

ptr? = 0 

3 kommando$ = "" 


N 


HH HH HHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HEHE 
'# Hauptprogramm # 
HH HH HHRHHHHHHH HH HH HH HH HH HH HH HH HH HH HH HH HH HER 











4 kommando$ = COMMANDS 'ı Parameter ? 

5 ptr% = INSTR (kommando$,"/?") '! Option /? 

6 IF ptr% <> 0 THEN 'ı Hilfsbildschirm 

7 PRINT "VKEY (ce) Born Version 1.0" 

8 PRINT 

9 PRINT "Aufruf: VKEY <Text>" 

10 PRINT 

11 PRINT "Das Programm prüft, ob eine Taste betätigt wurde 
und" 

12 PRINT "gibt den Code an DOS zurück: " 

13 PRINT 

14 PRINT "ERRORLEVEL = 0 keine Taste" 

15 PRINT " 255 Funktionstaste" 

16 PRINT " 1-254 Tastencode" 

17 PRINT 

18 PRINT "Das Feld <Text> ist optional und erlaubt die 
Ausgabe" 

19 PRINT "einer Benutzermeldung beim Aufruf." 

20 PRINT 

21 SYSTEM 

22 END IF 


23 PRINT kommando$;" "; '! Text ausgeben 

24 zchn$ = INKEYS 'ı Tastatur abfragen 
25 IF (LEN(zchn$) = 0) THEN 'ı Puffer Leer 

26 END (0) '1 0 zurückgeben 
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27 ELSEIF LEN(zchn$) = 1 THEN 

28 END (ASC(zchn$)) 'ı Tastencode 

29 ELSE 

30 END (255) 'ı Funktionstaste 
31 END IF 

32 END 


Ixkkk* Programm Ende **+**** 


Listing 5.14: VKEY.BAS 
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6 Strandgut 


Im Rahmen meiner bisherigen Tätigkeit haben sich eine Reihe von 
Programmen und Modulen angesammelt, die für Entwickler und 
Anwender von Interesse sein können. Ich habe deshalb eine Auswahl diese 
Module in diesem Kapitel unter dem Motto »Strandgut« zusammengefasst. 
Es handelt sich um eine lose Sammlung an Tools, die sich nicht in die 
vorhergehenden Kapitel einordnen lassen. 


Ein Menüsystem für PowerBASIC 


Alle in den vorhergehenden Kapiteln gezeigten Programme sind mit einer 
recht einfachen Benutzersteuerung ausgestattet. Diese reicht für die 
benötigte Funktionalität aus und lehnt sich zudem an das DOS-5.0- 
Bedienkonzept an. Bei umfangreicheren Programmfunktionen ist aber in 
der Regel eine Menüführung erforderlich. Von Standardprogrammen sind 
und Pop-up-Menüs bekannt. PowerBASIC bietet hier aber keine 
Unterstützung. Ansätze im Shareware-Bereich existieren zwar, diese 
dürfen aber nicht frei weiterverwendet werden. Weiterhin fehlt meist der 
Quellcode, welcher für Erweiterungen erforderlich ist und die gebotene 
Funktionalität ist nicht immer überzeugend. Deshalb entstand bei mir die 
Idee, eine Menüsteuerung in PowerBASIC zu implementieren und die 
Bibliothek nachfolgend zu veröffentlichen. Als Ausgangspunkt fand sich in 
der Zeitschrift Toolbox (DMV-Verlag) ein kleines Programm (88 Zeilen) in 
TurboBASIC für Pop-up-Menüs. Das Listing war schnell abgetippt und 
lauffähig. Allerdings fehlten viele Funktionen, so daß ich mich entschloß, 
das Paket grundlegend zu überarbeiten. Nach zwei Tagen stand eine 
komplette Bibliothek zur Menüsteuerung in PowerBASIC, die mit dem 
Urprogramm kaum noch etwas zu tun hat. Diese Bibliothek sowie zwei 
einfache Demonstrationsprogramme für Pop-up- und Pull-down-Menüs 
möchte ich nachfolgend vorstellen. 


Der Entwurf der Bibliothek 


Die Bibliothek soll alle Funktionen bereitstellen, mit denen sich eine 
einfache Menüsteuerung in PowerBASIC realisieren läßt. Die 
nachfolgenden Vorüberlegungen definieren deshalb die Anforderungen: 


Um ein Pop-up-Menü zu generieren, muß der Programmierer die 
gewünschten Menütexte zusammenstellen und die Position der Pop-up- 
Box definieren. Dann muß die Bibliothek das betreffende Menü 
selbständig auf dem Bildschirm darstellen. Bild 6.1 zeigt ein Beispiel für 
solches Menü: 
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Anzeigen 
Ende 


Bild 6.1: Beispiel eines Pop-up-Menü 


Die vier Menüpunkte werden mit einem Rahmen versehen und auf dem 
Bildschirm an der definierten Position ausgegeben. Die markierte Zeile 
symbolisiert den Auswahlcursor. Dieser Cursor läßt sich mittels der 
Tasten Pfeil_oben und Pfeil unten zwischen den einzelnen Menüpunkten 
verschieben. Sobald die Tasten Esc, Pfeil links, Pfeil rechts oder Eingabe betätigt 
werden, wird das Menü beendet und das Anwenderprogramm erhält die 
Kontrolle zurück. Der Abbruch über die Cursortasten sollte sich aber bei 
Bedarf sperren lassen. Rückgabeparameter geben dann an, welcher 
Menüpunkt zuletzt per Cursor selektiert war. Weiterhin ist von Interesse, 
ob das Menü per Esc-Taste abgebrochen oder ein Menüpunkt per Eingabe 
quittiert wurde. Dann kann das Anwenderprogramm auf die 
Benutzereingaben reagieren. 














Neben diesen einfachen Grundanforderungen lassen sich aber noch einige 
Zusatzwünsche formulieren. Die Menüsteuerung übernimmt zwar die 
Ausgabe des Menüs an der vorgegebenen Position und zeichnet auch 
einen Rahmen um den Text. Die Abmessungen des Rahmen werden dabei 
automatisch aus der Länge der Menütexte berechnet. Als Option ist nun 
die Auswahl des Rahmentyps denkbar (einfacher Rahmen, Doppelrahmen, 
kein Rahmen). Weiterhin ist es teilweise erwünscht, in der Kopf- und 
Fußzeile des Rahmens Texte einzublenden (Bild 6.2). 





Anzeigen 
Ende 
Lesc —— 








Bild 6.2: Pop-up-Menü mit Kopf- und Fußtexten 


Der Kopftext kann einen Hinweis auf die Funktion des Menüs geben, 
während im Fußtext Fehlermeldungen oder Bedienhinweise erscheinen 
können. Der nächste Punkt betrifft die Selektion der Farben für Text und 
Hintergrund. Beide sollten vor Aufruf des Menüs definierbar sein. Hilfreich 
ist weiterhin die Möglichkeit, die Position des Cursors im Menüsystem vor 
dem Aufruf zu definieren. 


Mit diesen Optionen sind die Wünsche hinsichtlich der 
Programmschnittstele für Pop-up-Menüs abgedeckt. Vor der 
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Implementierung sollten jedoch noch einige Gedanken bezüglich der 
Funktionalität der Software diskutiert werden. 


Beim Aufbau eines Pop-up-Menüs wird zum Beispiel der betreffende 
Bildschirmbereich durch das Menü überschrieben. Wird dann das Menü 
wieder geschlossen, sind die vorher vorhandenen Daten verloren. Daher 
muß der betreffende Bildschirmbereich vor Ausgabe des Menüs gesichert 
werden. 


Nachdem ein Menü vom Benutzer mittels Esc oder Eingabe (oder 
Cursortasten) beendet wird, geht die Kontrolle wieder an das 
Anwenderprogramm zurück. Denkbar ist es nun, gleichzeitig das Menü zu 
löschen und den alten Bildschirminhalt zu restaurieren. Dies ist bei 
einstufigen Menüs (Bild 6.1) tolerierbar. Was ist aber, wenn mehrere 
Menüs gleichzeitig (Bild 6.3) sichtbar sein sollen? Hier muß die Kontrolle, 
wann ein Menü geschlossen und der Bildschirm restauriert wird, beim 


Anwenderprogramm liegen. 


*.BAS 
*.TXT 
L 


Bild 6.3: Mehrstufiges Pop-up-Menü 











Anzeigen 


Ende 


Bei der Ausgabe eines Pop-up-Menüs sind deshalb folgende Schritte 
erforderlich: 


e Sicherung des Bildschirmbereiches der Menübox. 
«e Ausgabe des Pop-up-Menüs und Benutzersteuerung. 
e Schließen der Menübox und Restaurieren des Bildschirmbereiches. 


Naheliegend wäre es, alle diese Funktionen automatisch mit einem 
Funktionsaufruf abzuwickeln. Wegen der oben beschriebenen Problematik 
bei mehrstufigen Menüs geht dies aber nicht. Weiterhin treten bei der 
Implementierung verschiedene Probleme auf; so muß die Größe der Puffer 
für die zu sichernden Bildschirmausschnitte innerhalb der 
Menübibliothek bekannt sein. Diese ist aber abhängig von der Anzahl und 
den Abmessungen der Menüboxen. Puffer innerhalb der Bibliothek 
müssen aber vorab definiert werden, was eine Limitierung der 
Menüsteuerung zur Folge hat. Daher soll die Implementierung der 
Menübibliothek so erfolgen, daß das Anwendungsprogramm die komplette 
Kontrolle über die Menüsteuerung behält. Damit ist das Programm auch 
für die Sicherung und Restaurierung der Bildschirmbereiche 
verantwortlich. Als positiver Vorteil ist zu sehen, daß damit die Zahl der 
gleichzeitig offenen Menüs nur noch durch das Anwenderprogramm 
bestimmt wird. 
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Erweiterung um Pull-down-Funktionen 


Alle bisherigen Diskussionspunkte beziehen sich nur auf Pop-up-Menüs. 
Bei Pull-down-Menüs besteht die einzige wirkliche Erweiterung in der 
Menüleiste, die am oberen Bildschirmrand ausgegeben wird. Ein 
geöffnetes Pull-down-Menü läßt sich dann als Pop-up-Menü mit einer 
festen Position interpretieren (Bild 6.4). 


Files Edit Compile Debug Exit 








Dir 
Laden 
Anzeigen 
Exit 











Bild 6.4: Pull-down-Menü 


Damit muß die Bibliothek lediglich um eine Funktion zur Ausgabe der 
Menüleiste erweitert werden. Die Cursorsteuerung kann dann vom 
Anwenderprogramm übernommen werden. Damit läßt sich auch die 
Funktionalität des Pull-down-Menüs bestimmen (siehe 
Anwendungsbeispiel). 


Die Implementierung 


Die Implementierung der Bibliothek erfolgt in PowerBASIC. Die einzelnen 
Module werden in einer eigenen Bibliotheksdatei namens MENU.INC 
abgelegt: 


Auf die Verwendung einer Unit wurde hier aus Aufwandsgründen 
verzichtet. 


Alle von der Bibliothek benutzten globalen Variablen sind entweder intern 
als SHARED definiert oder als Übergabeparameter zu vereinbaren. 
Nachfolgend werden erst die für das Anwenderprogramm relevanten 
Prozeduren beschrieben. Der Abschnitt läßt sich daher auch als 
Handbuch für die Bibliothek interpretieren. Anschließend folgen die intern 
benutzten Hilfsprozeduren. 


Menulnit (screenseg%) 


Diese Prozedur muß als erstes vom Anwendungsprogramm aufgerufen 
werden, um einige zentrale (shared) Variable zu initialisieren. Der 
Übergabeparameter screenseg% definiert die Segmentadresse des 
Bildschirmadapters. Diese wird zur Sicherung des Bildschirminhaltes 
benötigt. Da die Menüs nur im Textmodus funktionieren, beschränken 
sich die Adressen auf: 
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&HBOOO für Monochromkarten (HGC) 
&HB800 für Colorkarten (CGA, EGA, VGA) 


Der Parameter wird in der globalen Variable scrseg% gespeichert. Die 
Variablen xmax% und ymax% definieren die Bildschirmabmessungen (z.B. 
80x25). Hier können bei Bedarf auch andere Abmessungen (z.B. 80x43) 
eingestellt werden. Der Versuch, ein Menü außerhalb dieser Grenzen 
auszugeben, wird von der Menübibliothek abgefangen. 


Die globale Variable initflg% signalisiert durch den Wert 1, daß die 
Initialisierung erfolgreich durchgeführt wurde. Falls vom 
Anwendungsprogramm das Modul Menulnit nicht aufgerufen wurde, läßt 
sich kein Pop-up- oder Pull-down-Menü über PopMenu, PullMenu 
ausgeben. 


PopMenu (x%, y%, text$(1), items%, fcol%, bcol%, title$, foot$, 
style%, status%, nr%) 


Dies ist die eigentliche Prozedur zur Erzeugung eines Pop-up-Menüs. Die 
Prozedur ist vom Anwenderprogramm aufzurufen und benötigt folgende 
Parameter: 


x%|X-Position linke obere Ecke 
y%|Y-Position linke obere Ecke 
text$() |Feld mit den Menütexten 
items%|Zahl der Menüzeilen in text$() 
£col%|Vordergrundfarbe (0..31) 
bcol%|Hintergrundfarbe (0..7) 
title$|Titeltext 

foot$ | Fußtext 

style%|Rahmentyp (0,1,2) 
status%|Status des Aufrufs und Steuerparameter 
nr? |selektierter Menüpunkt 























Das Modul öffnet eine Box an der mit x%,y% angegebenen Stelle. Breite 
und Höhe der Box werden automatisch aus den Längen der Menütexte 
und dem Titel- und Fußtext bestimmt. Diese Texte sind in den Parametern 
text$(), title$, foot$ zu übergeben. Die Anzahl der Einträge in text$() 
(Menüzeilen) muß in items% übergeben werden. Falls kein Kopf- oder 
Fußtext erscheinen soll, sind Leerstrings als Parameter in title$ und foot$ 
zu übergeben. 


Die Farbauswahl für die Menübox erfolgt durch die Parameter fcol% und 
bcol%. Die Codierung der Werte ist im PowerBASIC-Handbuch beim 
COLOR-Befehl beschrieben: 


O schwarz®®4 rot 

1 blau®®5 magenta 
2 grün®®6 braun 

3 zyan®*7 weiß 


Weitere Codes für die Vordergrundfarben sind dem Basic-Handbuch zu 
entnehmen. 
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Der Parameter style% definiert den Rahmentyp (Tabelle 6.2). In status% 
findet sich nach der Rückkehr die Information über den Ablauf der 
Operation. Hierbei gelten die Werte aus Tabelle 6.1: 


beim Aufruf 


0 kein Exit bei Cursor links/rechts 
1 Exit bei Cursor links/rechts 

bei der Rückkehr 
-2 Initialisierung fehlt 


-1 | Menü paßt nicht auf Bildschirm 





0 Exit mit RETURN-Taste 
28 Exit mit ESC-Taste 

2 Exit mit Cursor rechts 
3 Exit mit Cursor links 


Tabelle 6.1: Statuscodes von PopMenu 


Wird vor dem Aufruf der Wert von status% = 1 gesetzt, gibt das Modul die 
Kontrolle an die Anwendung zurück, wenn die Tasten Pfeillinks oder Pfeil rechts 
erkannt werden (kann bei Pull-down-Menüs relevant sein). Bei status% = O 
wird dies blockiert. 





Die Rückgabewerte in status% (O bis 3) erlauben dem Anwenderprogramm 
die Unterscheidung, ob das Menü mit Esc, den Cursortasten oder durch 
Selektion eines Menüpunktes über die Eingabe-Taste verlassen wurde. Über 
Ese kann ein Benutzer ein versehentlich geöffnetes Menü schließen. Der 
zuletzt durch den Cursor selektierte Menüpunkt findet sich in allen Fällen 
im Parameter nr%. Wird beim Aufruf von PopMenu in nr% ein Wert 
zwischen 1 und items% übergeben, positioniert das Modul den Cursor auf 
den zugehörigen Menüpunkt. Andernfalls findet sich der Cursor auf dem 
l. Menüpunkt. Dies ist bei mehrstufigen Menüsystemen wichtig, da dann 
das Anwenderprogramm für die Cursorpositionierung verantwortlich ist 
(siehe auch Beispielprogramm). 


PopMenu kümmert sich nicht um die Sicherung und Restaurierung des 
Bildschirmes. Dies muß durch die Module OpenBox und CloseBox im 
Anwenderprogramm erfolgen. Das Menü bleibt auch nach Verlassen der 
Prozedur PopMenu sichtbar bis es mit CloseBox geschlossen wird. Damit 
kann ein Menü jederzeit reaktiviert werden. Der Aufbau der Prozedur 
PopMenu ist dem folgenden Listing zu entnehmen. Die Anweisungen sind 
ausgiebig kommentiert, so daß auf eine Diskussion an dieser Stelle 
verzichtet wird. 


PullMenu (text$(1), items%, fcol%, bcol%, xpos%(1), status%, nr%) 


Dies ist die Prozedur zur Erzeugung einer Pull-down-Menüleiste. Die 
Prozedur ist vom Anwenderprogramm aufzurufen und benötigt folgende 
Parameter: 


text$() |Feld mit den Menütexten 
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Zahl der Menüzeilen in text$() 
Vordergrundfarbe (0..31) 

Hintergrundfarbe (0..7) 

xpos% () [Rückgabeparameter x-Pos. der Menüeinträge 
status%|Status nach dem Aufruf, Steuereingang 
nr%| |selektierter Menüpunkt 


items? 
£col% 
bcol% 











Das Modul gibt eine Menüzeile in der obersten Bildschirmzeile aus. Der 
Bildbereich kann vorher mit SaveArea im Anwenderprogramm gesichert 
werden. Die Anzahl der Einträge in text$() (Menüpunkte) muß in items% 
übergeben werden. 


Die Farbauswahl für die Menüleiste erfolgt durch die Parameter fcol% und 
bcol%. Die Kodierung der Werte entspricht der Prozedur PullMenu und ist 
im PowerBASIC-Handbuch beim COLOR-Befehl beschrieben. 


Der Parameter status% steuert beim Aufruf die Option zur 
Cursorsteuerung. Wird der Wert status% = 1 vor dem Aufruf gesetzt, gibt 
das Modul die Kontrolle an die Anwendung zurück, sobald die Tasten Pfeil 
links. oder Pfeilrechts erkannt werden. Bei status% = O wird dies blockiert. Die 
Rückgabewerte in status% (0 bis 3) erlauben dem Anwenderprogramm die 
Unterscheidung, ob das Menü mit Esc, den Cursortasten oder durch 
Selektion eines Menüpunktes über die Eingabe-Taste verlassen wurde. Die 
Codierung entspricht den Vorgaben in Tabelle 6.1. Über Esc kann ein 
Benutzer ein versehentlich geöffnetes Menü schließen. 





Der zuletzt durch den Cursor selektierte Menüpunkt findet sich in allen 
Fällen im Parameter nr%. Wird beim Aufruf von PopMenu in nr% ein Wert 
zwischen 1 und iterns% übergeben, positioniert das Modul den Cursor auf 
den zugehörigen Menüpunkt. Andernfalls findet sich der Cursor auf dem 
1. Menüpunkt. Dies ist bei geöffneten Pull-down-Menüs wichtig, da dann 
das Anwenderprogramm für die Cursorpositionierung verantwortlich ist. 


PullMenu kümmert sich nicht um die Sicherung und Restaurierung des 
Bildschirmes. Dies muß durch die Module SaveArea und CloseBox im 
Anwenderprogramm erfolgen. Die Menüzeile bleibt auch nach Verlassen 
der Prozedur PullMenu sichtbar, bis sie mit CloseBox geschlossen wird. 
Damit kann sie jederzeit reaktiviert werden. Der Aufbau der Prozedur 
PullMenu ist dem folgenden Listing zu entnehmen. 


OpenBox (x%, y%, text$(1), items%, title$, foot$, buff%(1)) 


Dies ist eine der wichtigsten Routinen für das Anwenderprogramm. Vor 
dem Aufbau eines Pop-up-Menüs muß die Prozedur aufgerufen werden 
um den Bildschirmbereich unterhalb der Menübox im Parameter buff%(0 
zu sichern. Da die Puffer im Anwenderprogramm definiert werden, läßt 
sich deren Größe und Anzahl in Abhängigkeit von der Anwendung 
festlegen. Zur Sicherung eines kompletten Bildschirms werden 2004 
Elemente (4008 Byte) benötigt. Jedes Zeichen des Bildschirms besteht 
dabei aus zwei Byte (Zeichen+tAttribut). Die ersten vier Elemente dienen 
zur Aufnahme der Parameter für Lage und Größe des Bildbereiches. In der 
Regel kann der Puffer jedoch kleiner als 2004 sein, da die Menübox keinen 
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kompletten Bildschirm umfaßt. Um Lage und Größe des zu sichernden 
Bereiches in OpenBox zu berechnen, müssen deshalb die Parameter x%, 
y%, text$(1), items%, title$ und foot$ beim Aufruf übergeben werden. 


OpenBox darf nur einmal vor dem Öffnen eines Pop-up-Menüs aufgerufen 
werden (siehe auch Beispielprogramm). Das Modul aktiviert dann die 
Prozedur SaveArea. 


SaveArea (x%, y%, breite%, hohe%, buff%()) 


Die Routine erlaubt die Sicherung eines Bildschirmbereiches an der Stelle 
x%,y% mit den Abmessungen breite% x hohe% in buff%0. Der Puffer muß 
im Anwenderprogramm definiert werden. Damit läßt sich dessen Größe in 
Abhängigkeit von der Anwendung festlegen. Zur Sicherung eines 
kompletten Bildschirms werden 2004 Elemente (4008 Byte) benötigt. Vier 
Elemente dienen zur Sicherung der Parameter x%, y%, breite% und hohe%. 
SaveBox wird von OpenBox benutzt und darf auch von 
Anwendungsprogrammen aufgerufen werden. Das Modul greift direkt auf 
den Bildschirmspeicher zurück und benötigt deshalb die Segmentadresse 
aus der globalen Variablen scrseg%. Diese muß vorher in Menulnit 
definiert werden. 


CloseBox (buff%(1)) 


Durch Aufruf dieser Prozedur wird eine geöffnete Menübox wieder 
geschlossen und der Hintergrund des Bildschirms restauriert. Wichtig ist 
die Übergabe des korrekten Puffers. Andernfalls wird der Bildschirm nicht 
korrekt restauriert. 


Die Hilfsroutinen 


Der nachfolgende Abschnitt beschreibt einige Hilfsroutinen, die nur intern 
durch die Bibliothek benutzt werden können. 


MenuLine (lo$, lu$, ro$, ru$, li$, lup$, style%) 


Diese Hilfsprozedur wird nur intern benutzt und initialisiert den Linientyp 
für den Rahmen. Der Parameter style% definiert dabei die Linienart 
(Tabelle 6.2). 


style Rahmentyp 
1 einfacher Rahmen 
2 Doppelrahmen 
sonst kein Rahmen (Blanks) 








Tabelle 6.2: Rahmenart 


Die Prozedur legt dann die benötigten Zeichen für den Rahmen in den 
folgenden Variablen ab: 


1o$ 
lu$ 


linke obere Ecke 
linke untere Ecke 
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ro$| |rechte obere Ecke 
ru$| |rechte untere Ecke 
li$| |horizontale Linie 
lup$| |vertikale Linie 








Die Zeichen werden in PopMenu zur Konstruktion des Rahmens 
verwendet. Daher wird MenuLine vor jeder Ausgabe einer Menübox von 
PopMenu aufgerufen. 


GetMaxLen (text$(1), items%, title$, foot$, maxlen%) 


Dies ist eine interne Hilfsroutine, die die Breite der Menübox für Pop-up- 
Menüs ermittelt. Diese berechnet sich aus dem längsten String, der in 
text%(, title$ oder foot$ vorkommt. Das Ergebnis wird in maxlen% 
zurückgegeben. Die Textbox selbst ist dann zwei Zeichen breiter als 
maxlen%. 


PutLine (text$, xlen%) 


Dies ist ebenfalls eine nur intern benutzte Routine, die durch PopMenu 
aktiviert wird. Aufgabe ist es, jeweils den Text einer Menüzeile auszugeben 
und den Bereich bis zum rechten Rahmen der Box mit Leerzeichen 
aufzufüllen. Der Parameter text$ enthält den Text der Menüzeile, während 
xlen% die Breite des Textbereiches angibt. 


Damit möchte ich die Beschreibung der Bibliotheksroutinen beenden. 
Sicherlich sind noch Verbesserungen denkbar. So kann die Auswahl eines 
Menüpunktes durch Eingabe des ersten Buchstabens erfolgen. Dies 
erfordert nur wenige zusätzliche Zeilen in PopMenu. Nachfolgend findet 
sich das Listing mit den einzelnen Bibliotheksroutinen. 


xREF /2=55 (ce) Born Version 1.0 
Datei : menu.inc Datum : 07-19-1992 Seite : 1 
Zeile Anweisung 


HH HEHE HH HH RHHH HH HH HH HH HHH HH HH HHHEHEH 
'ı File: MENU.INC 

'ı Version: 1.0 v. 10.7.92 (c) G. Born 

"1 Subroutinen zur Menüsteuerung 

"1 Pull Down und Pop Up 
HH HH HH HH HH RHHH HH HH HH HRHERHFH HEHE HHHEHEH 


1 SUB Menulnit (screenseg?) 


2 SHARED xmax?%, ymax%, initflg%, scrseg% 


3 scrseg% = screenseg% '! Seg. Adr. Adapter 
a || || '! B800H oder BO00H 

5 xmax% = 80 'ı rechter Bildrand 
6 ymax% = 25 '!ı unterer Bildrand 
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10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 


33 


34 
foot$, 
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init£flg% = 1 'ı Init ok 
END SUB 
SUB MenuLine (10$,1u$,ro$,ru$,1i$,1lup$,style%) 


SELECT CASE style% 

CASE = 1 N 
lo$ = nz" ' 
lus = nA ' 
ro$ non ' 
ru$ = nz" ' 
li$ = "-" ' 
lup$ = "|; ' 

CASE = 2 
lo$ = "En '! Linientyp 2 
lus = "En 
ro$ = "y" 
russ = "yı 
li$ = Bl) 
lup$ = "en 

CASE ELSE 
168: =; U" 'ı Linientyp 3 
lus = " 
ro$ = " 
ru$g = " 
lis-=" 
lup$ = " 

END SELECT 


END SUB 
SUB PopMenu (x%, y%, text$ (1), items%, fcol%, bcol%, 
style?%, status%, nr?) 

Subroutine für PopUp-Menü 

Die Routine gibt die Menübox mit dem Text aus. 


x%, y% Anfangskoordinaten linke obere Ecke 


Linientyp 1 

Ecke links oben 
Ecke links unten 
Ecke rechts oben 
Ecke rechts unten 
Linie waagerecht 
Linie senkrecht 


'! text$() Texte mit Menüpunkten 

'ı jtems% Zahl der Menüpunkte 

'ı foot$ Text Fußzeile 

'l style% Rahmentyp (1 = einfach, 2 = doppelt, sonst blank 
'ı £col% Vordergrundfarbe 

'1 bcol% Hintergrundfarbe 


status? vor Aufruf: 
0 kein Exit bei Cursor rechts/links 
1 Exit bei Cursor rechts/links 


! 
! 
! 
! 
! 
! 
! 
'ı titles Text Kopfzeile 
! 
! 
! 
! 
! 
! 
! 
! Ergebnis des Aufrufes: 
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35 
36 
37 


38 


39 
40 
4l 
42 


DP$RıR BR 
NSNaAaUuı» 


48 
49 
50 
51 





52 


53 
54 
55 
56 
57 
58 
59 
60 
61 
62 














-2 
-1 
0 
1 
2 
3 


Fehler: Initialisierung fehlt 
Fehler: Box paßt nicht auf Bildschirm 


ok, 
ok, 
ok, 
ok, 


Menü mit RETURN beendet 

Menü mit ESC beendet 

Menü mit Cursor Rechts beendet 
Menü mit Cursor Links beendet 


Aufruf: vorselektierter Menüpunkt 
Return: Nummer des selektierten Menüpunktes 


LOCAL maxlen?%, 


LOCAL 10$, lu$, 


SHARED xmax%, 


flag% 


status% 


0 
% 
i%, 


zchn$, zeile%, old%, flag% 


ro$, ru$, 1i$, 1lup$ 


ymax?%, initflg% 


'ı merke status 


'ı prüfe ob INIT durchgeführt 


IF initflg% <> 1 THEN 


status% 
EXIT SUB 
END IF 


-2 


'ı Emittle Länge des Menüpunktes 


CALL GetMaxLen 


(text$() ‚,items?%, title$, foot$, maxlen?%) 


'ı Paßt das Menü auf den Bildschirm ? 


IF (x% 
status% 
EXIT SUB 

END IF 


=L 


+ maxlen% 


+ 2) > xmax% THEN 


IF (y% + items% + 2) > ymax% THEN 


status% 
EXIT SUB 
END IF 


-1 


'ı Rahmentyp setzen 


CALL MenuLine (10$,1u$,ro$,ru$,1i$,1lup$,style%) 


'ı Rahmen zeichnen 


COLOR £col%,bcol% 
LOCATE y%, 
PRINT 10$; 
IF (LEN (title$) 
PRINT titles; 
END IF 
IF LEN (title$) 
FOR i% 
END IF 
PRINT ro$ 


° 
xX5 


> 


'ı linke obere Ecke 


0) THEN 
'ı Titel Textbox 


< maxlen% THEN 


LEN (title$) TO maxlen%-1 : PRINT 1li$; : NEXT i% 
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63 FOR i% = 1 TO items% 
64 LOCATE (y%+i%), xX% 


65 PRINT 1lup$; 
66 CALL PutLine (text$ (i%) ‚maxlen?) 
67 PRINT 1lup$ 


68 NEXT i% 


69 LOCATE (y%+items%+1l), xX% 
70 PRINT 1lu$; 
71 IF (LEN(£foot$) > 0) THEN 





72 PRINT foot$; 'ı Fußtext 

73 END IF 

74 IF LEN(foot$) < maxlen% THEN 

75 FOR i% = LEN(foot$) TO maxlen%-1 : PRINT 1i$; : NEXT i% 
76 END IF 





77 PRINT ru$ 

'ı Init Variable für Selection 

'! ermittle die Position der invertierten Zeile 

'! diese kann in nr% vorgegeben werden (1 - items?) 
78 old% = items? 'ı letzte Zeile 


79 IF (nr% 1) OR (nr% > items%) THEN '! 


N 


80 zeile% = 1 '! 1. Menüpunkt 

81 ELSE 

82 zeile% = nr% '! vorgegebener Punkt 
83 IF nr? = items% THEN old? = 1 

84 END IF 

85 zchn$ = CHR$S(0) 'ı Init Puffer 


'! decodiere Benutzerauswahl 

'ı warte bis CR oder ESC betätigt wurde 
86 loopx% = 0 
87 WHILE (loopx% = 0) 


'ı prüfe ob sich die Cursorauswahl gegenüber dem letzten 
Durchlauf 
'! verändert hat. Markiere betreffende Auswahlzeile des Menüs 





durch 
'! inverse Textdarstellung 


88 IF zeile% <> old% THEN '! Änderung 

89 LOCATE (y%+old%), (xX%+1) 'ı Cursor auf alte Zeile 
90 COLOR £fcol%,bcol% 'ı normal darstellen 

91 CALL PutLine (text$ (old?) ‚maxlen?) '! schreiben 

92 LOCATE (y%+zeile?%), (x%+1) 'ı Cursor auf neue Zeile 
93 COLOR bcol%, £col% '!ı invers darstellen 

94 CALL PutLine (text$ (zeile%) ‚maxlen?%) '! schreiben 





95 END IF 


'! lese Tastatur aus und decodiere ggf. die Tastencodes 
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96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


126 


zurück 


127 


128 


129 


130 
131 
132 
133 
134 
135 


136 








zchn$ = INKEYS$S 'ı lese Tastencodes 
IF LEN(zchn$) = 2 THEN 'ı Extended ASCII-Code 
zchn$ = RIGHTS (zchn$ 1) '! entferne 1. Zeichen 
SELECT CASE zchn$ 
CASE = CHRS$S (72) 'ı Cursor UP 
old% = zeile% '! merke Zeile 
zeile% = zeile% - 1 '! neue Position 
IF zeile% = 0 THEN zeile% = items% '! wrap 
CASE = CHRS$S (80) '! Cursor DOWN 
old% = zeile% '! merke Zeile 
zeile% = zeile% + 1 '! neue Position 
IF zeile% > items% THEN zeile% = 1 '! wrap 
CASE = CHRS$S (75) ! Cursor RIGHT 
status? = 2 '! Exitcode 
IF flag% = 1 THEN loopx% = 1 'ı Exit 
CASE = CHRS$S (77) 'ı Cursor LEFT 
status% = 3 
IF flag% = 1 THEN loopx% = 1 'ı Exit 
END SELECT 
ELSE 
SELECT CASE zchn$ 
CASE = CHRS$ (13) '! Return 
status?3=0 '! Exitcode CR 
loopx% = 1 
CASE = CHRS$S (27) 
status?%=1 '! Exitcode ESC 
loopx% = 1 
END SELECT 
END IF 
WEND 
nr? = zeile% '! gebe Auswahlcode 
END SUB 
SUB GetMaxLen (text$ (1) ‚items%, title$, foot$,maxlen%) 


LOCAL i% 
'ı Ermittle die Länge des größten Menüpunktes 


maxlen? = O0 

FOR 1% = 1 TO items? 
IF (LEN(text$(i%)) > maxlen%) THEN 
maxlen?% = LEN(text$(i%)) 
END IF 

NEXT i% 


'ı Ist die Titellänge > als maxlen? 
IF (LEN (title$) > maxlen?) THEN 
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137 
138 


139 
140 
141 
142 


143 





buff% 


151 
152 


153 
154 


155 


156 


157 
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maxlen% = LEN(title$) 
END IF 


'ı Ist die Fußlänge > als maxlen? 

IF (LEN(£foot$) > maxlen‘%) THEN 

maxlen% = LEN (foot$) 

END IF 
END SUB 

SUB PutLine (text$,xlen?) 

'ı  Subroutine zur Ausgabe einer Menüzeile 

'! Die Routine gibt den text$ der Länge xlen?% in der 

'l gesetzten Farbe in der Menübox aus. 

LOCAL i% 

PRINT text$; 'ı Original Text ausgeben 
FOR i% = 1 TO xlen%-LEN (text$) 'ı mit Blanks auffüllen 

PRINT " "; 
NEXT i% 


END SUB 


SUB OpenBox (x 


D 


, y%, text$(1), items?%, title$, f£foot$, 


(1)) 

Mia ae DIES Zwanzig Tznsasusalas 
'ı  Subroutine zur Sicherung des Bildschirmausschnittes 
'! unter der Menübox. (Variable siehe PopMenu) 

We a a a a a et nr ae an Ma mt m de 
SHARED scrseg% 'l Seg. Adr. Screen 


LOCAL maxlen% 
'!ı ermittle Länge des Menüpunktes 


CALL GetMaxLen (text$ () ,items%, title$, foot$, maxlen%) 
maxlen% = maxlen? + 2 '! wegen Rahmen 


'! sichere Bildschirmausschnitt 
CALL SaveArea (x%, y%, maxlen%,items%+2, buff%()) 
END SUB 
SUB SaveArea (x%, y%, breite%, hohe%, buff?(1)) 
'ı  Subroutine zur Sicherung eines Bildschirmausschnittes 


'ı ab Punkt x,y mit den Abmessungen breite x hohe in 
'ı  buff(). 
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158 
159 


160 
161 


162 
163 


164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 


1:75 


176 
1747 


178 
179 
180 
181 


182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 


193 


SHARED scrseg% ! 

LOCAL i%, j%, ptr%, ofs% 

'ı sichere die 

buff%(1) = x% 

buff?%(2) = y% 

buff%(3) = breite 

buff?%(4) = hohe% 

'ı sichere den Bildschirmbereich 

DEF SEG = scrseg% 

ptr% =5 

FOR i% = 1 TO hohe? 
ofs% = ((y%+i1%-2)*80 + (x%-1))*2 
FOR j% = 0 TO breite% 
buff%(ptr?%) = PEEKI (0ofs%+j%*2) 
ptr% = ptr% + 1 
NEXT j% 

NEXT i% 

DEF SEG 

END SUB 

SUB CloseBox (buff?%(1)) 


SHARED scrseg% J 


LOCAL i% 


1 


x% 
y% 
breite? 
hohe% 


DEF SEG 
ptr?% = 
FOR i% 
ofs% 
FOR j% 
POKEI 
ptr?% = 
NEXT j% 
NEXT i% 
DEF SEG 
END SUB 


5 


SUB PullMenu 


status?%, 


2 


( 
( 


ptr?%, ofs%, x%, y%, 


j%, 


lese Parameter des Ausschnittes 


buff% (1) 
buff% (2) 


buff?% (3) 
buff%(4) 


scrseg? j 


1 TO hohe% 
(y%+1%-2)*80 + 
0 TO breite? 
ofs%+j%*2) ‚,buff? (ptr%) 

ptr% + 1 


(x%-1))*2 


(text$ (1), items?%, fcol 


hohe%, 


Q 
°, 


285 


! Seg. Adr. Screen 


Parameter des Bildausschnitts im Buffer 


Screen Segment 
Beginn Screen-Puffer 
alle Zeilen 
Anfangsadresse 

alle Spalten 


Subroutine zur Restaurierung des Bildschirmausschnittes 
unter der Menübox. 


! Seg. Adr. Screen 
breite% 


! Screen Segment 


bcol%, xpos% (1), 
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194 
195 
196 


197 


198 
199 
200 
201 


202 
203 
204 
205 


206 
207 
208 
209 


210 
211 
212 
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Die Routine gibt die Menüzeile mit dem Text aus. 


'! text$() Texte mit Menüpunkten 

'ı items%() Zahl der Punkt in der Menüzeile 
'ı £col% Vordergrundfarbe 

'! bcol% Hintergrundfarbe 

'1.xpos%() x-Koordinate Menüpunkt 


status? vor Aufruf 


1 Exit bei Cursor rechts/links 
0 kein Exit bei Cursor rechts links 
Ergebnis des Aufrufes 
-2 Fehler: Initialisierung fehlt 
-1 Fehler: Zeile paßt nicht auf Bildschirm 
0 ok, Menü mit RETURN beendet 
1 ok, Menü mit ESC beendet 
2 ok, Menü mit Cursor Rechts beendet 
3 ok, Menü mit Cursor Links beendet 
vor Aufruf Position invert. Menüpunkt 
nach Aufruf: 
Nummer des selektierten Menüpunktes 


LOCAL maxlen%, i%, zchn$, spalte%, old%, tmp% 
LOCAL loopx?%, flag%, leer$ 
SHARED xmax%, ymax?%, initflg% 


flag% 


status? '! merke Flag 


'ı prüfe ob INIT durchgeführt 


IF initflg% <> 1 THEN 
status% = -2 
EXIT SUB 


END IF 
'ı Paßt 


tmp?% = 
FOR i% 

tmp% 
NEXT i 


° 
° 


die Menüzeile auf den Bildschirm ? 


'ı 1. Leerzeichen 
= 1 TO items% 
tmp% + LEN(text$ (i%)) +1 


IF ptr?% > xmax?% THEN 
status? = -1 
EXIT SUB 


END IF 


'!ı ermittle ob Zwischenraum vergrößert werden kann 


leer$ 


non 'ı 1 Leerzeichen 


IF tmp%+items% < xmax% THEN 


tmp% 


(xmax%-tmp?) / items? 
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213 
214 
215 


216 
217 
218 


219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 


231 
232 
233 
234 
235 


236 


237 
238 
239 
240 
241 
242 


243 


244 


245 
246 
247 
248 
249 


IF tmp% > 8 THEN tmp% = 8 'ı max 8 Blanks 
leer$ = SPACES (tmp?) 'ı n Leerzeichen 
END IF 


'! gebe Menüzeile mit Hauptpunkten aus 
spalte% = nr% 

IF spalte% < 1 THEN spalte% = 1 

IF spalte% > items% THEN spalte% = items% 





LOCATE 1,1 
COLOR £col%,bcol% 'ı normal darstellen 
PRINT " "; 'ı Leerzeichen 
FOR 1% = 1 TO items? 
xpos% (i%) = POS (x) '! merke x-pos Menüpunkt 
IF i% = spalte% THEN 
COLOR bcol%, £col% 'ı invers darstellen 
ELSE 
COLOR £fcol%,bcol% 'ı normal darstellen 
END IF 
PRINT text$ (i%) ;leer$; '! Menüpunkt ausgeben 
NEXT i% 
COLOR £fcol%,bcol% 'ı normal darstellen 
DO WHILE POS (x) < xmax% '! Rest mit Blanks füllen 
PRINT " "; 
WEND 
PRINT " "; 


'ı Init Variable für Selection 
'! ermittle die Position der invertierten Zeile 
'! diese kann in nr% vorgegeben werden (1 - items?) 


old% = items% '! letzte Spalte 


IF (nr% < 1) OR (nr% > items%) THEN '! 
spalte% = 1 '! 1. Menüpunkt 


ELSE 
spalte?% = nr% '! vorgegebener Punkt 
IF nr? = items% THEN old? = 1 

END IF 


'ı decodiere Benutzerauswahl 
'ı Warte bis CR, ESC, oder CurR/CurL betätigt wurde 


loopx?% = 0 
WHILE (loopx% = 0) 


'! lese Tastatur aus und decodiere ggf. die Tastencodes 


zchn$ = INKEYS 'ı lese Tastencodes 
IF LEN(zchn$) = 2 THEN 'ı Extended ASCII-Code 
zchn$ = RIGHT$ (zchn$ 1) '! entferne 1. Zeichen 
SELECT CASE zchn$ 

CASE = CHRS$S (80) '! Cursor DOWN (unbelegt) 
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250 status% = 3 'ı Exitcode 

251 IF £flag% = 1 THEN loopx% = 1 'ı Exit 

252 CASE = CHRS$S (77) 'ı Cursor RIGHT 
253 old% = spalte% '! merke Zeile 
254 spalte% = spalte% + 1 '!ı neue Position 
255 IF spalte% > items% THEN spalte% = 1 '!! wrap 
256 status% = 2 'ı Exitcode 

257 CASE = CHRS$S (75) '! Cursor LEFT 
258 old% = spalte% '! merke Zeile 
259 spalte% = spalte% - 1 '!ı neue Position 
260 IF spalte% = 0 THEN spalte% = items% '! wrap 
261 status? = 3 

262 END SELECT 

263 ELSE 

264 SELECT CASE zchn$ 

265 CASE = CHR$ (13) 'ı Return 

266 status?%=0 'ı Exitcode CR 
267 loopx% = 1 

268 CASE = CHR$ (27) 

269 status?=1 'ı Exitcode ESC 
270 loopx% = 1 

271 END SELECT 

272 END IF 


'ı prüfe ob sich die Cursorauswahl gegenüber dem letzten 
Durchlauf 
'! verändert hat. Markiere betreffende Auswahlzeile des Menüs 








durch 
'! inverse Textdarstellung 
273 LOCATE 1,2 '! Text neu ausgeben 
274 FOR i% = 1 TO items? 
275 IF i% = spalte% THEN 
276 COLOR bcol%, £col% 'ı invers darstellen 
277 ELSE 
278 COLOR £fcol%,bcol% 'ı normal darstellen 
279 END IF 
280 PRINT text$ (1%) ;leer$; '! Menüpunkt ausgeben 
281 NEXT i% 
282 COLOR £fcol%,bcol% 'ı normal darstellen 
283 WEND 
284 nr% = spalte®% '! gebe Auswahlcode 
zurück 


285 END SUB 
'ı Ende INC-File 


Listing 6.1: Bibliotheksroutinen für Pop-up-Menüs 
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Ein Anwendungsbeispiel für Pop-up-Menüs 


Um den Umgang mit der Menüsteuerung etwas näher zu erläutern, habe 
ich ein einfaches Beispielprogramm erstellt. Um ein Menü aufzubauen, 
sind mehrere Schritte erforderlich. Diese sind nachfolgend abstrahiert 
dargestellt: 


DIM BUF% (600) 'ı Puffer vereinbaren 
DIM MENS (3) 'ı Feld für Menütexte 
CLS 'ı clear Screen 

CALL Menulnit (&HB800) 'ı Init Lib, (Colorkarte) 


'ı Aufbau des 1. Menüs mit 3 Einträgen 


MEN$ (1) = "Files" '! Text Menüzeilen 

MENS (2) = "----" 

MENS (3) = "Exit" 

weiss% = 7 'ı Farbkonstanten 

blau®$ =1 

'ı definiere Textbox (save Screen) 

CALL OpenBox (10,3,MENS$ () ,3,"","",buf%()) 

'ı aktiviere Menübox 

CALL PopMenu (10,3,MENS$ () ,3,weiss%,blau?%,"","",2, status%,nr%) 


'ı schließe Menübox 
CALL CloseBox (buf%()) 
'! prüfe ob status? ok 
IF status?® < 0 THEN 
'ı Fehlerbehandlung 
ELSEIF status?% = 0 THEN 
'!ı nr% enthält den selektierten Punkt 
SELECT CASE nr? 


CASE = 1 
CASE = 2 
CASE = 3 
END SELECT 
END IF 
END 


Das Programm erzeugt ein Pop-up-Menü. Anschließend wird dieses 
gelöscht und die selektierten Parameter über die CASE-Struktur decodiert. 


Das nachfolgende Listing des Beispielprogramme zeigt, wie sich 
mehrstufige Menüs erzeugen lassen. Solange CloseBox nicht aufgerufen 
wird, bleibt ein Pop-up-Menü sichtbar und kann mit PopMenu reaktiviert 
werden. Wichtig ist lediglich, daß die ursprünglichen Aufrufparameter 
verwendet werden. 


Es wird auch gezeigt, wie die Menü-Funktionen zur Textausgabe nutzbar 
sind. (Eine eigene Funktion zur Anzeige von Textboxen wird in einem der 
folgenden Abschnitte vorgestellt). Weiterhin enthält die Demo eine 
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Sequenz, in der eine Menübox mehrfach neu positioniert wird. 
Einzelheiten sind dem nachfolgenden Listing zu entnehmen. Zur 
Erzeugung einer EXE-Datei müssen der Quellcode und die Datei 
MENU.INC im gleichen Verzeichnis gespeichert sein. 


XREF /2=50 (ce) Born Version 1.0 
Datei : popmenu.bas Datum : 07-19-1992 Seite : 1 
Zeile Anweisung 


TKKAKKKAKKKKHKKHTK KK KK KH KK KK HK KH KK KK KK TH KH KK KK HK TH KH KK TH KH KH KK KK AH HK KH KO 


'ı File ı POPMENU.BAS 

'ı Vers. 222,40) 

'ı Last Edit 10.7292 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBasic 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 


Funktion: Das Programm wird mit der Eingabe: 


I 
| 
| 
| 
! 
I 
| 
POPMENUE 
I 

! aufgerufen. Es demonstriert die Verwendung 


1 der Routinen zur Menüsteuerung (MENU.INC). 
IKAKKKKKKKKKHKKH KK KK TH KH TK HK KK TH KH TH KH KH KK KH KH KH TH KH KK KK TH KK TK KH KK KH KH TH KK TK KH KK A KH A KU &ÜUO 


'ı definiere Variable 








1 DIM MENS (7) 'ı Menütexte 

2 nr =1 '! Zeilennr. Cursor 
3 tmp® = 1 

4 DIM buff1%(600) '! temporäre Puffer 
5 DIM buff2% (500) 'ı max. 2004 Elemente 
6 DIM buff3% (500) 'ı für kompletten 

7 DIM buff4%(500) '! Screen 

8 DIM xp% (3) 'ı Koordinaten Jump 

Menü 

9 DIM yp% (3) '! vereinbaren 
10 xp$(1) = 15 
11 xp$(2) = 20 
12 xp%(3) = 30 

13 yp$(1) =5 

14 yp$(2) = 10 

15 yp$(3) = 15 

16 black% = 0 'ı Farben 

17 blue% = 1 

18 green% = 2 

19 zyant = 3 
20 red% = 4 
21 magen% = 5 
22 white% = 7 
23 d% = 2 'ı Doppelrahmen 
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24 e% = 1 'ı Einfachrahmen 
'ı Bildschirm löschen und mit Zeichen füllen 
25 CLS 
26 FOR i% = 1 TO 1999: PRINT "°"; : Next i% '! Screen füllen 
DT ar a En a en a a a a a a nn BE a a en N an 
'ı Init Variable des Menüsystems, der Bildschirmadapter 
'ı liegt bei Coloradaptern bei Segmentadr. B800H, 
a a en a a eh a na en nee an 
27 CALL Menulnit (&HB800) 'ı Init Variable 
28 done% = 0 'ı Hilfsflag löschen 
| I|2=2==2=2==2==2=2==2=2=2=2==2=2=2=2=2=2=2=2=2=2=2=2=2=2=2=2=2=2==2==2=2==2==2===2==2===== 
29 DO WHILE 1 '! Schleife über 
Menüsystem 
30 Kopf$ = ("1.Menue") 'ı Titeltext für Menübox 
31 MEN$S(1) = "1. Submenü" 'ı Texte für Menü 
definieren 
32 MEN$S(2) = "2. Submenü'" 
33 MEN$S(3) = "3. Textbox" 
34 MENS(4) = "4. ---" 
35 MENS(5) = "5. ---" 
36 MENS(6) = "6. Jump Menü" 
37 MENS(7) = "7. Exit" 
!l----- ------------ ---- ---- -- - - - -- - -- - - - - - - - - - - - - - - - - - - 
'! Aufruf des Hauptmenüs mit Kopftext ohne Fußtext, 7 entries 
'ı als erstes muß der Fensterbereich gesichert werden 
'ı Achtung: dies darf nur 1 x erfolgen, deshalb Flag done 
We: a ee a a u nn na a u a Ka un u a a at a Ka ke, 
38 IF done% = 0 THEN '! Box offen? 
39 CALL OpenBox (8,5,MEN$ () ,7,kop£$,"",buff1%()) 
40 done% = 1 '! markiere offene Box 
41 END IF 
42 status? = 0 
43 CALL 
PopMenu (8,5,MEN$ () ,7,white%,blue%,kopf£f$,"",d%,status%,nr%) 
44 tmp% = nr% '! merke Selektion 
45 IF status% < 0 THEN 'ı Fehler beim Aufruf? 
46 CLS 
47 PRINT "Fehler: Menübox paßt nicht auf Bildschirm" 
48 END 
49 ELSE 
50 IF status% = 1 THEN 'l ESC gedrückt? 
EN CALL CloseBox (buff1%()) 'ı Schließe Box 
52 END 'ı Ja -> Exit 
53 END IF 
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54 END IF 


'! werte selektierten Menüpunkt in nr?% aus 
'!l status? = 2 oder 3 wird hier ignoriert und 
'ı wirkt daher wie RETURN !!!! 


55 SELECT CASE nr? 


56 CASE = 1 'ı 1. Auswahlcode 


Hauptmenü 
N a a a Va a a en ne a He 





57 MEN$S (1) = "Test" 'ı Texte für Menü 
definieren 

58 MEN$ (2) = "------ " 

59 MEN$ (3) = "EXIT" 

60 CALL OpenBox (21,8,MEN$ () ,3, "Sub-Menul","",buff2%()) 

61 CALL PopMenu (21,8,MENS$ () ‚3, red%,blue%, "Sub-Menul","",d%, 

status%,nr%) 

62 IF status?% < 0 THEN 'ı Fehler beim Aufruf? 

63 CLS 

64 PRINT "Fehler: Menübox paßt nicht auf Bildschirm" 

65 END 

66 ELSE '! werte nur status? = 0 aus 

67 IF status% = 0 THEN '! RETURN gedrückt 





68 MEN$S (1) = "Auswahl: " + STR$S (nr%) 
69 MEN$S (2) = "Bitte ESC- oder RET-Taste betätigen 
70 CALL OpenBox (30,10,MEN$ () ,2,"","",buff3%()) 
71 CALL 
PopMenu (30,10,MENS () ‚2, zyan%,red%,"","", e%,status?%,nr%) 
72 CALL CloseBox (buff3% ()) 'ı close Textbox 
73 END IF 
74 END IF 
75 CALL CloseBox (buff2%()) 'ı close Submenü 


76 CASE = 2 
'ı baue ein 2. Submenü mit 4 Einträgen auf 


77 head$ = "Sub-Menue 2" 'ı Titeltext für Menübox 

78 fuss$ = "Exit->ESC" 'ı Fußtext für Menübox 

79 MEN$ (1) = "Test 1" 'ı Texte für Menü 
definieren 

80 MEN$S (2) = "Test 2" 

8l MEN$ (3) = "Test 3" 

82 MEN$ (4) = "EXIT" 
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'ı Aufruf des Menüs 





83 CALL OpenBox (15,12,MEN$ () ,‚4,head$, £uss$,buff2% ()) 

84 CALL PopMenu (15,12,MEN$S () ,‚4,white%,black%,head$, £fuss$,d%, 
status%,nr%) 

85 IF status% < 0 THEN 'ı Fehler beim Aufruf? 

86 CLS 

87 PRINT "Fehler: Menübox paßt nicht auf Bildschirm" 

88 END 

89 ELSE 

90 IF status% = 0 THEN '! RETURN gedrückt 


'ı Trick: Hier wird die Menüauswahl als Textbox benutzt 





91 MEN$S (1) = "Auswahl: " + STR$(nr%) 
92 MEN$S (2) = "Bitte ESC- oder RET-Taste betätigen 
93 CALL OpenBox (20,10,MEN$ () ,2,"","",buff3%()) 
94 CALL PopMenu (20,10,MEN$ (),2,2,4,"","", e%,status%,nr%) 
95 CALL CloseBox (buff3%()) 
96 END IF 
97 END IF 
98 CALL CloseBox (buff2%()) 
99 CASE = 3 '! Textanzeige 
100 'ı schließe das Hauptmenü 
101 CALL CloseBox (buff1%()) 
102 done%=0 '! reset flag% 





103 MEN$S (1) = "Dies ist ein Beispiel für den Aufbau einer" 

104 MEN$S (2) = "Textbox. Der Text muß auf die einzelnen Zeilen" 

105 MENS (3) = "aufgeteilt werden. Um die Box zu schließen, " 

106 MEN$S (4) = "drücken Sie bitte die ESC-Taste." 

107 CALL OpenBox (20,10,MENS () ‚4, "Sub-Menul","",buf£f2%()) 

108 CALL PopMenu (20,10,MENS$S () ‚4,white%, green%, "Sub-Menul","", 
e%, status%,nr%) 

109 IF status% < 0 THEN 'ı Fehler beim Aufruf? 

110 CLS 

111 PRINT "Fehler: Textbox paßt nicht auf Bildschirm" 

112 END 

113 END IF 


114 CALL CloseBox (buff2%()) 


115 CASE 4 
116 CASE = 5 
1.17 CASE = 6 
118 CALL CloseBox (buff1%()) 'ı schließe Hauptmenü 
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'! Demo wie eine BOX verwendet wird (Jump Menü) 


119 Kopf$ = ("Jump Menü") 'ı Titeltext für Menübox 

120 MEN$S (1) = "Punkt 1" 'ı Texte für Menü 
definieren 

1217. MEN$ (2) = "Punkt 2" 

122 MEN$ (3) = "Punkt 3" 


'ın. Aufrufe des Hauptmenüs an leicht veränderter Position 


123 status% = 0 
124 nrs.=-1 


125 DO WHILE status% = 0 
126 tmp% = nr? 'ı Achtung: alte nr% merken 
ı 


127 ! und buff4%() verwenden, 

128 'ı da buff1() noch benutzt !!!! 

129 CALL OpenBox (xp% (nr%) ‚yp% (nr%) ,MEN$ () ,3,kop£$,"",buff4%()) 
130 CALL 


PopMenu (xp% (nr?) ‚yp% (nr%) ,‚MEN$ () ,‚3,white%,blue%,kop£$, 
fuss$,e%,status?,nr%) 
131 CALL CloseBox (buff4%()) 





132 WEND 


133 CASE = 7 
'ı schließe Hauptmenü und terminiere 
134 CALL CloseBox (buff1%()) 
135 END 
136 END SELECT 


137 nr% = tmp®% 'l setze 
Selektionspunkt 

138 WEND 

139 END 


'ı Routinen zur Menüsteuerung einbinden 
140 $INCLUDE "menu.inc" 


'ı Ende 


Listing 6.2: POPMENU.BAS 


Ein Anwendungsbeispiel für Pull-down-Menüs 


Um den Umgang mit der Menüsteuerung etwas näher zu erläutern, habe 
ich ein weiteres Beispielprogramm erstellt, welches ein Pull-down-Menü 
implementiert. Um ein Menü aufzubauen, sind mehrere Schritte 
erforderlich. Diese sind nachfolgend abstrahiert dargestellt: 
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e Initialisiere Variable. 
e Sichere obere Bildschirmzeile. 


e Sichere einen Bereich unterhalb dieser Zeile für die Pull-down- 
Menüs. 


e Gib die Menüzeile aus. 


«e Werte die Tastencodes aus und erzeuge gegebenenfalls die Pull- 
down-Boxen oder aktiviere die Anwendung. 


Das Programm erzeugt zuerst die oberste Menüleiste. Vorher wird mit 
SaveArea der Bildschirminhalt dieser Zeile gesichert, was aber nicht 
zwingend erforderlich ist. Da immer nur ein Pull-down-Menü offen ist, 
reicht es anschließend, einige Zeilen unterhalb der Menüleiste in einem 
Puffer zu sichern. Dort werden die Menüs sichtbar und können jeweils mit 
CloseBox mit dem Puffer überschrieben werden. Dadurch braucht der 
Bildschirmbereich nur einmal gesichert zu werden. 


Wird in der Menüzeile ein Punkt mit Eingabe selektiert, muß das betreffende 
Pull-down-Fenster geöffnet werden. Hierzu sind die Routinen der Pop-up- 
Menüsteuerung zu verwenden. Die x-Position des Fensters findet sich in 
xpos%(nr%), wobei nr% dem Rückgabeparameter von PullMenü entspricht. 
Die y-Position ist fest auf die zweite Zeile eingestellt. Mit diesem Trick ist 
der Aufbau eines Pull-down-Menüs recht einfach. Das nachfolgende 
Beispielprogramm zeigt die Einzelheiten der Implementation. Was noch 
fehlt ist die Möglichkeit, bei geöffnetem Pull-down-Fenster die Cursor- 
rechts/links-Steuerung anzuwenden. Dann sollte direkt das nächste 
Fenster geöffnet werden. In der aktuellen Version wird das Fenster 
geschlossen und zum jeweiligen Menüpunkt der Leiste verzweigt. Das Pull- 
down-Fenster läßt sich dann über die EingabeTaste öffnen. 


Einzelheiten sind nachfolgendem Listing zu entnehmen. Zur Erzeugung 
einer EXE-Datei müssen der Quellcode und die Datei MENU.INC im 
gleichen Verzeichnis gespeichert sein. 


XREF /2=50 (ce) Born Version 1.0 
Datei : pullmenu.bas Datum : 07-19-1992 Seite : 1 
Zeile Anweisung 
AAKKKKKAKKKKAKKAKKKTKK KT KK KH KH TK HK KK TH KH K KH KK KK KH KH TH KH KK KH KH KK KK HK KH K AH KH KA KU &UO 
File : PULLMENU.BAS 
Vers. 2.40) 
! Last Edit 10.7292 
! Autor : G. Born 
Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 


Funktion: Das Programm wird mit der Eingabe: 


1x 

"1 

"1 

1 

1 

'! Progr. Spr.: PowerBasic 
1 

"1 

1 

"1 PULLMENUE 
"1 

"1 


aufgerufen. Es demonstriert die Verwendung 
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" der Routinen zur Steuerung von PullDown Menüs. 
"1 (MENU.INC). 
ITKAKKAKKKKKKHKKH KK KH TH HH KH TK HK KH HK KH KK KH TK KH KK KH TH KH KK TH KH KK KK TK KH KK KH KH TH KK KH KH KK A KH A KH &ÜUO 
'ı definiere Variable 
1 DIM MENI1$S (3) '! Menütexte 
2 DIM MEN2$S (3) 'ı Menütexte 
3 DIM xpos% (3) 'ı Position Menüpunkte 
4 DIM buff1%(100) 'ı Buffer für Save 
5 DIM buff2% (2000) Ua NEL. 
6 black? = 0 'ı Farben 
7 blue? = 1 
8 green% = 2 
9 zyant = 3 
10 red? = 4 
11 magen% = 5 
12 white% = 7 
'ı Bildschirm löschen und mit Zeichen füllen 
13 CLS 
14 FOR i% = 1 TO 1999: PRINT "°";, :. Next i% '! Screen füllen 
Va ee a a a 
'ı Init Variable des Menüsystems, der Bildschirmadapter 
'ı liegt bei Coloradaptern bei Segmentadr. B800H, 
Ve a a ee u nn u 
15 CALL Menulnit (&HB800) 'ı Init Variable 
16 MENI1$S(1) = "Files" 'ı Texte für Menü 
definieren 
17 MENI1$S (2) = "Edit" 
18 MENI1$S(3) = "Exit" 
19 items% = 3 'ı 3 Punkte im Hauptmenü 
I a a en en En FE EN denen En ME En a er A a Er a Be N SE FE Zee Et Be a ME 
'! Aufruf des Menüzeile des Pull Down Menüs 
VO a a ae a ae en ea a a a en an a ln aaa SE na ee an 
20 CALL SaveArea (1,1,80,1,buff1%()) '! sichere 1. Zeile Screen 
21 CALL SaveArea (1,2,80,20,buf£f2%())'! sichere weitere Zeilen 
22 level? = 0 '! nur Pull Down Zeile 
23 punkt% = 0 '! 1. Menüpunkt 
24 DO WHILE 1 'ı Endlosschleife 
25 nr% = punkt? 
26 status‘ = 1 'ı Exit bei Cursor down 
27 CALL 
PullMenu (MEN1$ () ‚items%, white?%,blue%,xpos%() ‚status%,nr%) 
28 punkt% = nr% 
29 IF status% < 0 THEN 'ı Fehler beim Aufruf? 
30 CLS 
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SH IF status?% = -1 THEN 
32 PRINT "Fehler: Menübibliothek nicht initialisiert" 
33 ELSE 
34 PRINT "Fehler: Menüzeile paßt nicht auf Bildschirm" 
3 END IF 
36 END 
37 END IF 
38 IF status% = 1 THEN 'l ESC gedrückt? 
39 IF level%® = 0 THEN 'ı EXIT 
40 CLS 
41 END 
42 ELSE 
43 CALL CloseBox (buf£f2%()) 'ı clear Pull Down Box 
44 level% = 0 
45 END IF 
46 END IF 
'! Selektion eines Menüpunktes in der Menüzeile 
'! klappe Menü auf 
47 IF ((status% = 0) OR (status% = 3)) AND (level% = 0) THEN 
48 SELECT CASE punkt? 
49 CASE = 1 'ı 1. Pull Down Menü 
50 level% = 1 
51 MEN2$ (1) = "Load " 
52 MEN2$ (2) = "Save" 
53 MEN2S (3) "List" 
54 nr? = 1 
55 status? = 1 'ı Exit bei Cursor 
rechts/links 
56 CALL 
PopMenu (xpos% (punkt%) ‚2,MEN2S$ () ,3,white%,blue%, "","",1, 
status%,nr%) 
57 IF status% < 0 THEN 'ı Fehler beim Aufruf? 
58 CLS 
59 PRINT "Fehler: Menübox paßt nicht auf Bildschirm" 
60 END 
61 ELSE 
62 SELECT CASE status? 
63 CASE = 0 'ı RETURN? 
64 LOCATE 10,2 
65 PRINT "Auswahl "; punkt?%; ":"; nr% 
66 PRINT "Bitte eine Taste betätigen" 
67 DO WHILE INKEY$S = "":WEND 
68 CASE ELSE 
69 CALL CloseBox (buff2% ()) 'ı Schließe Box 
70 level% = 0 
ya IF status% = 3 THEN 'i Cursor rechts 
72 punkt? = punkt% + 1 
73 IF punkt% > items% THEN punkt?% = 1 
74 ELSEIF status% = 2 THEN '! Cursor links 
75 punkt? = punkt% - 1 
76 IF punkt% <= 0 THEN punkt% = items? 
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77 END IF 

78 END SELECT 

79 END IF 

80 CASE = 2 

8l level% = 1 

82 MEN2$S (1) = "Cut" 

83 MEN2S (2) "Paste" 

84 nr? = 1 

85 status% = 1 'ı Exit bei Cursor 
rechts/links 

86 CALL 


PopMenu (xpos% (punkt%) ‚,‚2,MEN2$ () ,‚2,white%,blue%, "","", 
1,status?,nr%) 


87 IF status% < 0 THEN 'ı Fehler beim Aufruf? 
88 CLS 

89 PRINT "Fehler: Menübox paßt nicht auf Bildschirm" 
90 END 

91 ELSE 

92 SELECT CASE status% 

93 CASE = 0 '! RETURN? 

94 LOCATE 10,2 

95 PRINT "Auswahl "; punkt?%; ":"; nr? 

96 PRINT "Bitte eine Taste betätigen" 

97 DO WHILE INKEY$S = "":WEND 

98 CASE ELSE 

99 CALL CloseBox (buff2%()) '! Schließe Box 
100 level% = 0 

101 IF status% = 3 THEN 'l Cursor rechts 
102 punkt? = punkt% + 1 

103 IF punkt% > items% THEN punkt?% = 1 

104 ELSEIF status? = 2 THEN 'ı Cursor links 
105 punkt? = punkt% - 1 

106 IF punkt% <= 0 THEN punkt% = items? 

107 END IF 

108 END SELECT 

109 END IF 

110 CASE 3 "1. EXIE 

111 CLS 

112 END 


113 END SELECT 
114 END IF 
115 WEND 
116 END 
'ı Routinen zur Menüsteuerung einbinden 


117 S$SINCLUDE "menu.inc" 


'ı Ende 


Listing 6.3: PULLMENU.BAS 
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Maussteuerung für PowerBASIC-Programme 


Ein weiteres Thema ist die Mausunterstützung in PowerBASIC. Bis zur 
Version 2.1 ist keinerlei Maussupport vorhanden. Deshalb habe ich eine 
kleine Bibliothek von Routinen implementiert, die eine Mausansteuerung 
unter PowerBASIC ermöglichen. 


Der Entwurf 


Die Ansteuerung der Maus aus Anwenderprogrammen ist unter DOS recht 
einfach. Es muß lediglich ein Maustreiber (kompatibel zu Microsoft) 
geladen werden. Dann ist der Treiber aus dem Anwenderprogramm zu 
aktivieren. Die Ausgabe des Mauscursors übernimmt der Treiber, wobei 
automatisch Text- und Grafikmodus erkannt und unterstützt werden. Der 
Treiber selbst stellt eine Kommunikationsschnittstelle unter dem INT 33H 
zur Verfügung, über die sich einzelne Funktionen ansprechen lassen. 
Einzelheiten über diese Schnittstelle finden sich in /1/. Aufgabe der 
Bibliothek ist es nun, die Schnittstelle zwischen dem INT 33H und den 
PowerBASIC-Anwendungen aufzubereiten. So sollte sich die Initialisierung 
des Treiber über einen Aufruf der Routine: 


CALL Mouselnit (status?) 

aus der Anwendung vornehmen lassen. Die aktivierte Bibliotheksroutine 
wertet dann die Übergabeparameter aus und ruft den Maustreiber über 
den INT 33H auf. Einzelheiten sind der folgenden Beschreibung zu 
entnehmen. 


Die Implementierung 


Die Anbindung der PowerBASIC-Anwendungen an den Maustreiber erfolgt 
über eine Sammlung von Prozedur- und Funktionsaufrufen, die die 
Umsetzung für den INT 33H übernehmen. Nicht alle Funktionen, die der 
Maustreiber anbietet, sind nachfolgend implementiert. Vielmehr wurde 
sich auf die notwendigen Grundfunktionen beschränkt. Erweiterungen 
sind aber leicht durchführbar. Alle Module werden in der Datei MAUS.INC 
abgelegt und lassen sich per INCLUDE-Anweisung: 


$INCLUDE "MAUS.INC" 
in die Anwendung integrieren. Nachfolgend möchte ich kurz die 
Schnittstellen zu den einzelnen Routinen vorstellen. 


Mauslnit (status%) 


Diese Routine muß als erstes zur lInitialisierung des Maustreibers 
aufgerufen werden. Nur dann lassen sich weitere Funktionen ansprechen. 
status% gibt das Ergebnis des Aufrufes an. Ist der Rückgabewert 0, wurde 
der Treiber erkannt und initialisiert. Mit status% = 1 als Rückgabewert ist 
kein Treiber vorhanden. 
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ShowCursor 


Dieser Prozeduraufruf veranlaßt, daß der Treiber den Mauszeiger auf dem 
Bildschirm einblendet. Die Zeigerform wird dabei in Abhängigkeit vom 
Bildschirmmodus (Text oder Grafik) gewählt. 


HideCursor 


Dieser Prozeduraufruf schaltet den Mauszeiger ab, d.h. das Symbol ist 
nicht mehr sichtbar. 


GetPara (x%, y%, button%) 


Dieser Prozeduraufruf fragt die folgenden Parameter der Maus ab: 


x% aktuelle x-Position des Cursors 
y% aktuelle y-Position des Cursors 
button% Zustand der Maustasten 


Die beiden Koordinaten x%,y% werden dabei in Mausschritten (Mikeys) 
angegeben. Diese Einheit läßt sich über einen INT 33-Aufruf verändern, 
der aber in der Bibliothek nicht implementiert wurde. In button% findet 
sich die Information, welche Maustasten gerade gedrückt sind: 


Bit |Taste 
0 |linke Maustaste 
1 |rechte Maustaste 
2 |mittlere Maustaste 





Ist das betreffende Bit = 1, wurde die Taste gerade gedrückt. Die mittlere 
Maustaste ist nur bei Mäusen mit drei Tasten vorhanden. 


XPos% 

Die Funktion gibt die x-Position des Mauszeigers zurück. 
YPos% 

Die Funktion gibt die y-Position des Mauszeigers zurück. 
Buttons% 


Die Funktion gibt den Zustand der Maustasten zurück. Es gilt die 
Codierung wie bei der Prozedur GetPara. 


SetxXY (x%, y%) 


Die Prozedur setzt den Mauszeiger auf die in den Parametern x%, y% 
angegebenen Koordinaten. Diese sind in Mausschritten anzugeben. 


SetXRange (xmin%, xmax%) 


Die Prozedur setzt ein Intervall auf der X-Achse, innerhalb dessen sich der 
Mauszeiger bewegen darf. Zusammen mit SetYRange läßt sich so ein 
Fenster für den Mauszeiger definieren. Dieses Fenster kann dann mit dem 
Zeiger nicht mehr verlassen werden. 
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SetYRange (ymin%, ymax%) 


Die Prozedur setzt ein Intervall auf der Y-Achse, innerhalb dessen sich der 
Mauszeiger bewegen darf. Zusammen mit SetXRange läßt sich so ein 
Fenster für den Mauszeiger definieren. Dieses Fenster kann dann mit dem 
Zeiger nicht mehr verlassen werden. 


PenEmul (switch%) 


Der Maustreiber kann einen Lichtgriffel emulieren. Über die Prozedur 
PenEmul läßt sich die Emulation ein- oder ausschalten. Der Wert von 
switch% bestimmt dabei den Emulationsmode: 


Emulation ausgeschaltet 
Emulation eingeschaltet 


switch% = 0 
switch% = 1 
Die Routine wird im folgenden Beispielprogramm allerdings nicht 
verwendet. 


SetTCursor (ymin%, ymax%) 


Der Maustreiber wird in Abhängigkeit vom Anzeigemodus der 
Bildschirmkarte den Cursor darstelen: 


Pfeil|Graphikmode 
Viereck | Textmode 


Das Anwendungsprogramm kann nun die Form des Cursors neu 
definieren. Für den Grafikmodus ist die Funktion 09H des INT 33H 
aufzurufen. Für den Textmodus läßt sich die Prozedur SetTCursor 
aktivieren. Die beiden Parameter ymin% und ymax% geben die Zahl der 
Rasterzeilen für den Cursor an. 


Damit möchte ich die Beschreibung der Mausbibliothek beenden. Nicht 
alle Funktionen des INT 33H wurden implementiert. Falls Sie die 
Bibliothek erweitern möchten, kann dies analog zu den bereits 
vorgestellten Routinen erfolgen. Eine detaillierte Beschreibung der INT 
33H-Aufrufe findet sich in den Literaturhinweisen (/1/). Einzelheiten 
bezüglich der Mausbibliothek sind dem folgenden Listing zu entnehmen: 


xREF /2=50 (ce) Born Version 1.0 
Datei : mouse.inc Datum : 07-19-1992 Seite : 1 
Zeile Anweisung 


HHHHHHHHHBHHHHH HH RHHREH HEHE BHH HE HH HH HEHE HEHE H 
'ı File: MOUSE. INC 

'ı Version: 1.0 v. 10.7.92 (c) G. Born 

| Subroutinen zur Maussteuerung 
HHHHHHHHBHHHEHH HH HRHHRH HH HER HH HH HH HH HH HEHE H 


1 SUB Mouselnit (status?) 


'ı Initialisierung der Maus 
'l status? = 0 -> ok, 1 -> keine Maus 
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16 
17 
18 
19 
20 
21 


22 


23 
24 
25 
26 


27 


28 
29 
30 
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CALL INTERRUPT &H33 

status? = 0 

IF REG(1) <> -1 THEN status? = 1 
END SUB 


SUB ShowCursor 


CALL INTERRUPT &H33 
END SUB 


SUB HideCursor 


CALL INTERRUPT &H33 
END SUB 


'ı lese Mausstatus 


'1.x%, y% = Koordinate Mauszeiger 

'ı button? = Tastenstatus 

"1 Bit 0 = 1 linke Taste gedrückt 

"1 Bit 1 = 1 rechte Taste gedrückt 

"1 Bit 2 = 1 mittlere Taste gedrückt 

NE a ee a a a a a a Er a 
REG 1,3 


CALL INTERRUPT &H33 
x% = REG(3) 

y% = REG(4) 
button? = REG(2) 
END SUB 


Def FN XPos% 


CALL INTERRUPT &H33 
FN XPos% = REG(3) 
END DEF 


Def FN YPos% 


CALL INTERRUPT &H33 
FN YPos% = REG(4) 
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31 


32 


33 
34 
35 
36 


37 


38 
39 
40 
41 
42 


43 


44 
45 
46 
47 
48 
49 


50 


51 
52 
53 
54 
55 
56 


57 


58 
59 


END DEF 
Def FN Button% 


'ı  Mausknopf gedrückt? 


'! Wert > 0 ja, Bitcodierung wie GetParam 
Bit 2 


'ı Bit 0 = links, Bit 1 = rechts, 

!Il----- -------- ------ -- - --- -- -- - -- - -- - - - - - - - - - - - - - - --- 
REG 1,3 

CALL INTERRUPT &H33 

Button? = REG(2) 
END DEF 
SUB SetXY (x%, y%) 

1 a a Ta ee en Tun a ih en 
'! setze Mausposition 

'1.x%, y% = Koordinate Mauszeiger 

!l------ ------- -- -- --------------------- - - -- --- ----- -- 
REG 1,4 

REG 3,x% 

REG 4,y% 

CALL INTERRUPT &H33 
END SUB 

SUB SetXRange (xmin%, xmax?) 

!l----- -------- -- -- -- -------- - ---- --- - --- -- - --- - ---- -- 
'! setze Mausintervall xmin xmax 

N a a 
REG 1,7 

REG 2,0 

REG 3,xmin% 

REG 4,xmax% 

CALL INTERRUPT &H33 

END SUB 

SUB SetYRange (ymin%, ymax%) 

I!l----- -------------- -- -- -- - --- -- - - - -- - - - - - - - - - - - - - - -- 
'! setze Mausintervall ymin ymax 

!l------- -------- ---------------------- ----- ----- --- -- 
REG 1,8 

REG 2,0 

REG 3, ymin% 

REG 4, ymax% 

CALL INTERRUPT &H33 

END SUB 

SUB PenEmul (switch?) 

Me a a a a a u a a un a nt u en u a a ul ee 
'ı schalte Light Pen Emulation: 

'! switch? = 0 -> aus, = 1 -> ein 


IF switch% = 0 THEN 
REG 1,&HO0E “a 
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60 ELSE 

61 REG 1, &HOD 'l on 
62 END IF 

63 CALL INTERRUPT &H33 

64 END SUB 


65 SUB SetTCursor (ymin%, ymax?%) 


66 REG 1,10 

67 REG 2,1 

68 REG 3,xmin% 

69 REG 4,xmax% 

70 CALL INTERRUPT &H33 
71 END SUB 


'! ENDE 


Listing 6.4: Bibliotheksroutinen zur Maussteuerung 


Ein Beispielprogramm zur Maussteuerung in PowerBASIC 


Aufbauend auf der oben gezeigten Bibliothek möchte ich nun ein kurzes 
Beispielprogramm vorstellen, welches den Umgang mit den Routinen der 
Mausbibliothek aufzeigt. Das Programm läßt sich wahlweise im Text- oder 
Grafikmodus betreiben, so daß die unterschiedlichen Cursorsymbole 
sichtbar werden. Die Abfrage bezüglich des Modus erfolgt nach dem 
Programmstart. 


Als erster Schritt muß der Maustreiber initialisiert werden. Dies geschieht 
über die Anweisung: 


CALL Mouselnit (status?) 


Fehlt der Maustreiber, bricht das Programm mit einer Fehlermeldung ab. 
Nach erfolgreichem Aufruf lassen sich die einzelnen Routinen jederzeit 
aktivieren. Um den Cursor sichtbar zu machen, ist die Prozedur 
ShowCursor aufzurufen. Soll der Cursor abgeschaltet werden, ist die 
Routine HideCursor zu aktivieren. Nach einem Aufruf von HideCursor läßt 
sich die Anzeige mit ShowCursor wieder einblenden. 


Anschließend wird der Anzeigebereich für den Mauscursor auf ein Fenster 
innerhalb des Bildschirms mit den Prozeduren SetXRange und SetYRange 
begrenzt. Die Größenangaben erfolgen in Mausschritten (1 Mikey = 
1/1200 Zoll). Anschließend wird ShowCursor aufgerufen. 


Der nächste Abschnitt demonstriert, wie sich der Mauscursor mit der 
Prozedur SetCursor auf dem Bildschirm positionieren läßt. Der Cursor 
wird in Schritten quer über den Bildschirm verschoben. Dann enthält das 
Beispielprogramm eine Schleife, die nur durch Drücken der Esc-Taste 
beendet werden kann. Innerhalb der Schleife wird der aktuelle 
Mauszustand zyklisch abgefragt. Die Position (x,y) sowie der Tastenstatus 
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werden anschließend auf dem Bildschirm angezeigt. Mit diesem kurzen 
Beispiel läßt sich aufzeigen, wie einfach die Maussteuerung in 
PowerBASIC zu integrieren ist. Weitere Einzelheiten sind nachfolgendem 
Listing zu entnehmen: 


XREF /2=50 (ce) Born Version 1.0 
Datei : maus.bas Datum : 07-19-1992 Seite : 1 
Zeile Anweisung 


TKKAKKKAKKKKHKKHTK KK KK HK TH KH KH KH HK KH KH KH KK KH KK KH KK KK KH KH TH KH KK KK KH KH KK KH KH KH HK KH KA &ÜUO 


'ı File : MAUS.BAS 

'! Vers. #120: 

'! Last Edit 107.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBasic 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 


| 

| 
'ı Funktion: Das Programm wird mit der Eingabe: 
| 
u MAUS 

| 

| 


"1 aufgerufen. Es demonstriert die Verwendung 


der Routinen zur Maussteuerung (MAUS.INC). 
IKAKKKKKKKKKHKKHKK KK TH TH KH TK HK KH HK KH TH HK KK KH KK KH TH KH KK KH AK KK KK TK KH KK KH KH TH KK KH KH KK A KH A KU &ÜUO 


1 


CLS 

PRINT "Graphik (J/N) ?" 

tmp$ = INPUT$ (1) 

IF (UCASE$ (tmp$) = "J") THEN SCREEN 2 '! Graphik ein 
CLS 


VPWMN H 


CALL Mouselnit (status?) 'ı Init Mauslib 


[o)) 


7 IF status% <> O0 THEN '! Init ok? 
8 PRINT "Keine Maus vorhanden" 
9 END 
0 END IF 
'! setze Fenster für Cursor (in Pixeln) 


11 CALL SetXRange (5,610) 
12 CALL SetYRange (30,150) 





13 CALL ShowCursor '! Cursor einblenden 
'! Cursor horizontal über Screen bewegen 

14 FOR i% = 10 TO 600 

15 CALL SetXY (i%,i1% / 6) 'l setze Cursor 

16 NEXT i% 


17 LOCATE 1,5 
18 PRINT "Mausdemo: Abbruch mit der ESC-Taste" 
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19 LOCATE 22,5 

20 PRINT "Cursorposition : " 

21 WHILE INKEY$ <> CHR$ (27) 

22 CALL GetPara (x%, y%, button?) '!ı lese Status 


23 LOCATE 22,22 
24 PRINT x%; " ";y% 





25 LOCATE 23,5 
26 IF (button% AND 1) > 0 THEN 


27 PRINT " linke Maustaste " 
28 ELSE 
29 PRINT " J 


30 END IF 


31 LOCATE 23, 20 
32 IF (button% AND 2) > 0 THEN 


33 PRINT " rechte Maustaste " 
34 ELSE 
35 PRINT " N 


36 END IF 
37 WEND 
38 END 
'ı Mauslib einbinden 
39 SINCLUDE "MOUSE. INC" 


'ı Ende 


Listing 6.5: Ein Beispiel zur Maussteuerung 


BIOS-Spielereien 


Die Verbindung zwischen dem Betriebssystem (DOS) und der Hardware 
wird durch eine eigene Softwareschicht realisiert. Innerhalb dieser 
Software erfolgt die Anpassung des maschinenunabhängigen 
Betriebssystems an herstellerspezifische Hardwarekonfigurationen. Diese 
Software wird als BIOS (Basic Input Output System) bezeichnet. Für 
PowerBASIC-Programmierer sind die BIOS-Funktionen in der Regel 
unbekannt, da keine Zugriffe auf diese Funktionen erfolgen. Allerdings 
gibt es einige recht nützliche Funktionen im BIOS, die die Möglichkeiten 
für PowerBASIC-Programme erweitern. Nachfolgend möchte ich einige 
Module vorstellen, die oft verblüffend einfach aber dennoch praktisch 
verwertbar sind. 
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NUMOFF: Abschalten der NUMLOCK-Taste 


Bei Rechnern mit MF2-Tastatur (sie besitzen einen separaten Block mit 
numerischen Tasten) schaltet das BIOS bei jedem Systemstart 
automatisch die NUMLOCK-Funktion ein. Dies wird an der 
entsprechenden Leuchtdiode sichtbar, die beim Start aktiv wird. Die 
Tasten geben dann bei einer Betätigung die Ziffern 0..9 zurück. Sollen die 
betreffenden Tasten jedoch zur Cursorsteuerung verwendet werden, muß 
zuerst die NUMLOCK-Taste manuell abgeschaltet werden. 


Nachdem der erste Rechner mit MF2-Tastatur auf meinem Schreibtisch 
stand, trat permanent ein Problem auf: Ich benutze den Ziffernblock meist 
zur Cursorsteuerung. Wurde das System gestartet, war jedoch die 
numerische Funktion aktiv. Bei Aufruf einer Tabellenkalkulation, einer 
Textverarbeitung oder einer Datenbank wurden dann meist die ersten 
Einträge durch Ziffern überschrieben, wenn ich die »Cursorsteuerung« 
benutzte. Da der Ansatz recht interessant ist, möchte ich nachfolgend die 
nach PowerBASIC portierte Lösung vorstellen. 


Die Grundlagen 


Beim Systemstart überprüft das BIOS die 
Hardware/Systemkonfigurierung und nimmt verschiedene 
Initialisierungen vor. Dabei wird auch die NUMLOCK-Funktion 
eingeschaltet. Die Systemkonfiguration wird teilweise in einem eigenen 
BIOS-Datenbereich gespeichert. Dieser Datenbereich umfaßt 256 Byte 
und liegt an den Adressen 0000:0400 bis O000:04FF. (Die genaue 
Beschreibung ist in /1/ enthalten.) 


Das Tastatur-Statusflag 


Beim Systemstart schaltet das BIOS die Tastatur in einen bestimmten 
Zustand, der anschließend in einem Flag ab Adresse 0000:0417 im BIOS- 
Datenbereich gespeichert wird. Dieses Flag besitzt dabei die Codierung 
gemäß Bild 6.5. 


6543210 
I TTTTT 7T 77 


rechte SHIFT-Taste 
linke SHIFT-Taste 


IL Strg-Taste 
ALT-Taste 
IL Scroll-Lock Status 
NUM-Lock Status 
IL - Caps-Lock Status 
Insert-Taste 


Bild 6.5: Tastaturstatusflag 
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Die einzelnen Bits geben an, ob die jeweilige Taste gedrückt wurde (Bit = 
1), bzw. ob die betreffende Funktion aktiv (Bit = 1) oder abgeschaltet (Bit = 
0) ist. Das BIOS überprüft zyklisch dieses Flag und stellt die Tastatur bei 
Änderungen um. 


Interessant ist in diesem Zusammenhang Bit 5, welches den Zustand des 
NUMLOCK-Schalters anzeigt. Ist das betreffende Bit gesetzt, ist die 
NUMLOCK-Funktion aktiv. Wird das betreffende Flag gelöscht, schaltet 
das BIOS die NUMLOCK-Funktion wieder ab. Dies ist aber genau die 
benötigte Funktion um NUMLOCK per Software abzuschalten. 


Die Implementierung 


Mit obigem Wissen ist die Implementierung ein Kinderspiel. Das 
Programm erhält den Namen NUMOFF.BAS und besteht nur aus wenigen 
Anweisungen. Deshalb kann auf die Angabe von Hierarchiediagrammen 
etc. verzichtet werden. Das betreffende Flag wird mit: 


DEF SEG &H40 

a% = PEEK (&H0017) 

gelesen. Beachten Sie, daß das korrekte Datensegment gesetzt werden 
muß (DEF SEG). Ich habe auf die Segmentangabe &HO000 verzichtet, da 
diese die 20-Bit-Adressierung in PowerBASIC einschaltet. Vielmehr wird 
das Segment 40H und der Offset 17H verwendet, was ebenfalls die Adresse 
0000:0417 ergibt. Dann wird Bit 5 mittels der AND-Anweisung: 


a% AND &HDF 

gelöscht und das Ergebnis wieder in die Speicherzelle zurückgeschrieben. 
Abschließend muß noch das ursprüngliche Segment mit DEF SEG 
restauriert werden. 


Nachdem das Programm in eine EXE-Datei übersetzt wurde, muß es als 
letzte Anweisung in die AUTOEXEC.BAT-Datei aufgenommen werden. 
Dann wird die NUMLOCK-Funktion bei jedem Systemstart abgeschaltet. 
Damit ist die Aufgabe bereits gelöst, Einzelheiten sind dem nachfolgenden 
Listing zu entnehmen. 


Erweiterungsvorschläge 


Sie können das Programm so modifizieren, daß sich die NUMLOCK-Taste 
wahlweise ein- oder ausschalten läßt. Weiterhin ist es denkbar, auch die 
anderen Bits des Tastaturflags über entsprechende Parameter zu 
modifizieren. 


xREF /2=50 (ce) Born Version 1.0 

Datei : numoff.bas Datum : 07-10-1992 Seite : 1 

Zeile Anweisung 
TAAKKKKKKKKHHKRKKHKHKK KT TH TH HK TH TH HK TH TH TH KH FH KH TE TH FH KH TH TH TH TH FH KH TK TH FH KH TH TK TH AH A KH AK A AK a 
'ı File : NUMOFF.BAS 
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! Vers. 3-10 
! Last Edit :16:26...92 
! Autor : G. Born 
Progr. Spr.: PowerBasic 
Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 


! Funktion: Das Programm wird mit der Eingabe: 
NUMOFF 


aufgerufen. Es schaltet die NUMLOCK-Funktion 
der Tastatur ab und gibt ein ntsprechend 


Meldung auf dem Bildschirm aus. 
KKKKKKKKKKKKKKKKKKKK KK KK KK KK KK KK KK KK KK KK KK KK TH KK TH KK KK KK KK KK KU KU 





ı 
I 
ı 
1; 
I 
ı 
ı 
ı 
ı 
ı 
ı 
ı 
ı 
ı 


! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 

* 
! 


Benutzernachricht ausgeben 


1 PRINT "NUMOFF (ce) Born Version 1.0" 
2 PRINT 
3 PRINT "NUMLOCK-Funktion abgeschaltet" 


DEF SEG = &H40 

a% = PEEK (&H0017) 

POKE &H0017, (a% AND &HDF) 
DEF SEG 


'!l setze Segmentadresse 

'ı lese Flag 

'ı clear Bit 5 und speichern 
'! altes Segment 


Sau» 


Ixkııkx* Programm Ende KAAKKK 


Listing 6.6: NUMOFF.BAS 


LPTSWAP: Vertauschen der Druckerausgänge 


Ein anderes Problem tritt häufiger auf, wenn mehrere Drucker an einem 
Rechner angeschlossen sind. Zum Beispiel befindet sich ein Laserdrucker 
an LPTl: und ein Nadeldrucker an LPT2:. Soll nun wahlweise auf den 
beiden Geräten gedruckt werden, muß die Anwendung dies unterstützen. 
Aber nicht jedes Anwendungsprogramm bietet diese Möglichkeit. Bestes 
Beispiel ist der LPRINT-Befehl, der sich auf LPT1: bezieht. Ist an LPT]: 
nun der Nadeldrucker angeschaltet und wollen Sie auf dem Laserdrucker 
ausgeben, müssen die Anschlußkabel am Rechner umgesteckt werden. 
Dies ist lästig und führt bei häufiger Durchführung auch zum 
Materialverschleiß. Eine Alternative wäre ein Durckerumschalter, der 
jedoch einiges kostet und nicht immer funktioniert (bei Laserdruckern 
kann es elektrische Probleme geben). Die Idee, die Ausgabe über das DOS- 
MODE-Kommando von LPTI1: auf LPT2: umzuleiten, funktioniert nur, falls 
die Software die DOS-Ausgaberoutinen des INT 21H benutzt. Viele 
Programme greifen jedoch direkt auf die Ausgaberoutinen des BIOS-INT 
17H zurück. Dann funktioniert die Umleitung jedoch nicht mehr. Ähnliche 
Überlegungen gelten auch für die seriellen Schnittstellen (COMI: bis 
COMA4:). Hier wäre ein Programm hilfreich, welches softwaremäßig die 
beiden Schnittstellen LPT1: und LPT2: vertauscht. Ausgehend von dieser 
Überlegung entstand bei mir vor Jahren ein kurzes Programm, welches 
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genau diese Aufgabe übernimmt. Nachfolgend möchte ich die Version für 
PowerBASIC vorstellen. 


Der Entwurf 


Um die Aufgabe zu lösen, sind wieder detaillierte Kenntnisse des DOS- 
Betriebssystems und des BIOS erforderlich. Jede Druckerausgabe einer 
Anwendung wird normalerweise über die INT 21-Funktionen abgewickelt. 
Diese Funktionen bedienen sich des BIOS-INT 17, um einzelne Zeichen an 
den Ausgabeport LPTx: zu schicken. Einzelne Anwenderprogramme greifen 
ebenfalls direkt auf den INT 17 zu. 


Das BIOS verwaltet nun in seinem BIOS-Datenbereich die Informationen 
über die Hardwarekonfiguration. Beim Systemstart wird zum Beispiel 
festgestellt, wieviele Schnittstellen das System besitzt und unter welchen 
Adapteradressen die Ausgabeports LPTx: und COMx: angesprochen 
werden können. Diese Informationen werden dann ab der Adresse 
0000:0400 wortweise im BIOS-Datenbereich gespeichert. Tabelle 6.3 
enthält eine Aufstellung der Belegung dieses Datenbereiches. 





Adr. Bedeutung 

0:0400 Portadresse COM1 (meist 03F8H) 
0:0402 Portadresse COM2 (meist 02F8H) 
0:0404 Portadresse COM3 

0:0406 Portadresse COM4 

0:0408 Portadresse LPT1 (meist 03BCH) 
0:040A Portadresse LPT2 (meist 03B8H) 
0:040C Portadresse LPT3 (meist 02B8H) 
0:040E Portadresse LPT4 








Tabelle 6.3: Adressen von LPTx: und COMx: im BIOS-Datenbereich 


Ist der betreffende Adapter nicht vorhanden, trägt das BIOS unter der 
zugehörigen Adresse den Wert 0000 ein. Mit einem Debugger läßt sich 
dann leicht feststellen, welche Karten vorhanden sind. 


Für unseren Zweck ist aber noch eine weitere Eigenschaft interessant. Das 
BIOS prüft zum Beispiel vor der Ausgabe auf LPT1: die Adresse des 
Adapters (0000:0408). Steht dort der Wert O3BCH, erfolgt die Ausgabe auf 
die Karte mit dieser Adresse. Wird aber unter 0000:0408 der Wert O3B8H 
eingetragen, leitet das BIOS einfach die Zeichen an eine zweite Karte mit 
der betreffenden Adresse weiter. Durch einfaches Umsetzen der BIOS- 
Adressen läßt sich offenbar die Eingabe umleiten. Was deshalb benötigt 
wird, ist lediglich ein einfaches Programm, welches die betreffenden 
Einträge im BIOS-Datenbereich modifiziert. 
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Die Implementierung 


Für unsere Aufgabe muß das Programm lediglich die Portadressen für 
LPT1: und LPT2: vertauschen. Eine Anpassung an andere LPTx-Ausgänge 
ist leicht durchführbar. Selbst bei COM-Ausgängen funktioniert die Sache. 
Was allerdings nicht geht ist die Umleitung von COM-Ausgängen auf LPT- 
Ausgänge. 


Der Zugriff auf die Daten des BIOS kann über die PEEK- und POKE- 
Anweisungen erfolgen. Da ich in den nachfolgenden Beispielen auch 
Assemblerprogramme benutze, möchte ich in diesem kleinen Beispiel mit 
INLINE-Codes arbeiten. Das Programm wird in Maschinensprache codiert 
und in einer Prozedur implementiert. Einzelheiten sind dem folgenden 
Listing zu entnehmen. 


Sofern Sie sich für die Assemblerprogrammierung interessieren, möchte 
ich auf /8/ verweisen. Dort wird auch eine Fassung von LPTSWAP in 
Assembler vorgestellt. Weiterhin gibt es eine Reihe von weiterer Literatur 
zu Assembler. Wer einen preisgünstigen Assembler sucht, sei auf den A86- 
Assembler (Shareware) und das Begleitbuch /9/ aus dem Systhema- 
Verlag verwiesen. Weiterhin ist für die Version 3.0 von PowerBASIC ein 
integrierter Assembler vorgesehen. Ich plane zu dieser Version ein eigenes 
Buch herauszugeben, welches die Thematik behandelt. In den 
nachfolgenden Abschnitten und im Anhang erfahren Sie zusätzlich, wie 
Sie zumindest kleinere Programme auch ohne Assembler bearbeiten 
können, ohne jedesmal mühsam die Maschinencodebefehle einzugeben. 


Da das Programm sehr einfach gehalten ist (es besteht nur aus wenigen 
Zeilen), möchte ich direkt das Listing vorstellen. Die 
Assembleranweisungen wurden in Maschinencode als INLINE integriert. 
Die Befehle und deren Funktion sind in jeder Zeile als Kommentar 
aufgeführt. 


xREF /2=55 (ce) Born Version 1.0 
Datei : lptswap.bas Datum : 07-19-1992 Seite : 1 
Zeile Anweisung 


IKAKKKKKKKKKHKTKK KK KK HK TH TK KH KHK KH KH TH KH KK KH KK KH KK TK KH HK TH KH KK KK KH KH KK KH AH KH KH KH HK A KH KU 
'ı File : LPTSWAP.BAS 

'ıl Vers. = 1.0 

'ı Last Edit ı- 1677.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBasic 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 
'ı Funktion: Das Programm wird mit der Eingabe: 
| 
"1 
| 
| 
| 
"1 
Ix* 


LPTSWAP 
aufgerufen. Es vertauscht LPT1 und LPT2 


und gibt ein ntsprechende Meldung 


auf dem Bildschirm aus. 
KAKKKKAKKKKKKHHKTKHKK KT HF KH KH TH TH KH HK TH TH FH FH KH TK TH FH KH TH TK TH FH FH KH TK TH FH KH KH TH KH A AH KH KK 
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'ı Benutzernachricht ausgeben 


1 PRINT "LPTSWAP (ce) Born Version 1.0" 
PRINT 
3 PRINT "LPT1: und LPT2: vertauscht" 


N 


4 CALL LPTSwap 'ı vertausche Schnittstellen 
5 END 
!Il------- ------ ------------------------------ ----- -- ----- - -- 
'ı Hilfsroutinen 


! Die Routine vertauscht die Portadressen von LPT1 / LPT2 
'ı im BIOS-Datenbereich (Adr. 0:408 und 0:40A). 
! 

! 


Implementiere die Routine als Assemblerprozedur 








7 $SINLINE &HIE 'ı PUSH DS ; merke 
Datensegment 
8 $SINLINE &H31, &HCO 'l XOR AX,AX ; Setze DS = 0 
9 $SINLINE &H8E, &HD8 'ı MOV DS,AX Fe. 
10 $INLINE &HAl, &H08, &H04 'ı MOV AX, [408]; Adr. LPT1 
lesen 
11 $INLINE &H8B, &HIE, &HOA, &H04 '! MOV BX, [40A] ; Adr. LPT2 
lesen 
12 $INLINE &H89, &HIE, &H08, &H0A4 '! MOV [40A] ,BX; Adr. LPT2 
setzen 
13 $INLINE &HA3, &HOA, &H04 'ı MOV [408] ,AX; Adr. LPT1 
setzen 
14 $SINLINE &HIF 'ı POP DS ; restauriere 
DS 
15 END SUB 


Ixkkk* Programm Ende **+**** 


Listing 6.7: LPTSWAP.BAS 


Der BIOS-Kommunikationsbereich 


Ein weiteres Problem betrifft die Übergabe von Informationen zwischen 
verschiedenen Programmen. So kann ein Programm zum Beispiel 
bestimmte Initialisierungen (z.B. Druckereinstellungen) vornehmen, die 
von anderen Programmen mit benutzt werden. Denkbar ist nun, daß das 
erste Programm nach der Initialisierung ein Flag im Rechner setzt, so daß 
andere Programme erkennen, daß die Initialisierung bereits erfolgt ist. 
Allerdings bleibt das Problem, wie diese Information zwischen den 
Programmen übergeben werden kann. Denkbar ist es, die Information in 
einer Datei zu speichern. Das Problem besteht aber darin, daß die Datei 
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auch nach dem Abschalten des Rechners erhalten bleibt, die 
Initialisierung aber verloren geht. Beim Start müßte die entsprechende 
Datei gelöscht werden. Zwar geht dies über ein entsprechendes 
Kommando in der AUTOEXEC.BAT-Datei, aber die Lösung ist nicht 
zuverlässig. Besser wäre es, die Signatur im RAM abzulegen. Dieses RAM 
wird bei jedem Rechnerneustart gelöscht. Doch wo lassen sich die Daten 
speichern?. Der Speicherbereich des Programmes wird freigegeben, sobald 
das Programm endet. Der Schreibzugriff auf den Umgebungsbereich 
funktioniert aus PowerBASIC nicht. Hier hilft nur noch die Kenntnis 
bezüglich der Belegung des BIOS-Datenbereiches weiter. Die Adressen: 


0000:04F0 .. 0000:04FF 


werden vom BIOS als »Kommunikationsbereich für 
Zwischenanwendungen« reserviert. Damti sind 16 Byte verfügbar, die bei 
jedem Programmstart gelöscht werden. Um auf den Bereich zuzugreifen, 
lassen sich PEEK- und POKE-Anweisungen verwenden. 


DEF SEG &H4F 

FOR i% = 0 TO 15 
PRINT HEX$ (PEEK (i%)) 
NEXT i% 


werden die 16 Byte als Hexzahlen auf dem Bildschirm ausgegeben. 


Sofern Sie also einen Datenbereich zur Parameterübergabe benötigen, 
können Sie die 16 Byte benutzen. 


XPARK: Parken der Festplatte 


Ein anderes »Problem!Syntaxfehler, DER geschieht dies in einem Bereich 
wo keine Daten vorhanden sind. Viele Systeme besitzen hierzu ein eigenes 
Programm, welches meist mit dem Namen PARK versehen ist. Falls Sie 
jedoch nicht über ein solches Programm verfügen, können Sie 
nachfolgendes Utility für diesen Zweck verwenden. 


Der Entwurf 


Das Programm erhält den Namen XPARK (zur Unterscheidung von PARK) 
und soll alle Schreib-/Leseköpfe von Festplatten in eine Parkposition 
bringen. Hierzu sind mehrere Schritte nötig: 


«e Ermittle die Zahl der Festplatten. 
«e Positioniere die Köpfe in einem sicheren Bereich. 
«e Gib eine Benutzernachricht zur Abschaltung des Rechners aus. 


Wichtig ist vor allem, daß der Rechner bei laufendem PARK-Programm 
abgeschaltet wird. Wurde die Parkposition angefahren, verschiebt die 
Rückkehr nach DOS sofort die Köpfe wieder in eine andere Position (das 
DOS-Programm COMMAND.COM muß ja geladen werden). Deshalb darf 
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das Programm nicht enden, sondern muß in einer Endlosschleife 
verbleiben. 


Die Zahl der Laufwerke sowie die Verschiebung der Köpfe kann über die 
Routinen des BIOS-INT 13H erfolgen. Über diesen Interrupt erfolgt die 
Ansteuerung von Disketten und Festplatten. Die Zahl der Festplatten im 
System läßt sich über den INT 13 mit AH = 08H und DX = 80H abfragen. 
Die Köpfe werden über die Funktion AH = OCH geparkt. Vorher müssen 
die Laufwerksparameter ermittelt werden. Dies erfolgt über die Funktion 
AH = 08H, wobei in DX der Wert 80H plus die Laufwerksnummer (1, 2, 3 
etc.) übergeben wird. Der Aufruf gibt die Laufwerksdaten (Zahl der Köpfe, 
Zahl der Zylinder etc.) zurück. Dann werden diese Daten der Funktion 
OCH übergeben. Der Kopf des Laufwerkes wird auf die letzte Spur 
positioniert. Weitere Einzelheiten bezüglich der Schnittstelle des INT 13H 
finden sich in /1/. 


Die Implementierung 


Das Programm ist recht einfach aufgebaut, so daß hier nur kurz die 
verschiedenen Module besprochen werden. 


drivesx 


Aufgabe dieses Unterprogramms ist es, die Zahl der Festplatten im System 
zu ermitteln. Es wird die Funktion AH = 08H des INT 13 verwendet. Das 
Ergebnis wird als Parameter an das rufende Programm zurückgegeben. 


park 


Diese Routine parkt das im Parameter lw% angegebene Laufwerk, indem 
die Köpfe auf die letzte Spur verschoben werden. Hierzu benutzt das 
Programm die Funktion AH = 08H des INT 13, um die Parameter zu 
ermitteln. Dann wird der Kopf durch die Funktion AH = OCH des INT 13 
geparkt. 


Das Hauptprogramm ermittelt die Zahl der Festplattenlaufwerke, gibt eine 
Meldung auf dem Bildschirm aus und parkt dann alle Köpfe. 
Anschließend verzweigt der Programmablauf in eine Endlosschleife. Wird 
nun der Rechner abgeschaltet, sind die Köpfe geparkt. Falls eine Taste 
betätigt wird, endet das Programm mit einer Benutzermeldung. Die Köpfe 
sind daraufhin nicht mehr geparkt. Weitere Einzelheiten sind dem 
folgenden Listing zu entnehmen. 


xXREF /2=50 (ce) Born Version 1.0 
Datei : park.bas Datum : 07-19-1992 Seite : 1 
Zeile Anweisung 
IKAKKKAKKKKKKKHKTKH KK KK HK KK KHK HK KH TH KH KK TH KH HK KH KK TH KH HK TH KH KK KK KH KK KK TK A KH KH KH HK KA KH KU 
'ı File : PARK.BAS 
bh Vers: 1-0 
'! Last Edit 7645.92 
'ı Autor : G. Born 
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29 


| 

| 

| 

'ı Funktion: Das Programm wird mit der Eingabe: 

I 

PARK 
| 


vi aufgerufen und parkt die Festplattenköpfe. 
TARRKKKKKKKKK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KH KH KU KO 


'ı Variable definieren 
drive% = 0 


ON ERROR GOTO fehler 


PRINT 

PRINT "PARK (ce) Born Version 1.0" 
PRINT 

CALL DRIVESX 'ı Laufwerkszahl 
PRINT "Es wurden ";drive%;" Platten erkannt" 


PRINT 


SELECT CASE drive% 








CASE 0 

PRINT "Es sind keine Festplatten vorhanden" 

CASE 1 

CALL park (1) 

PRINT "Festplatte 1 geparkt" 

CASE 2 

CALL park (1) 

PRINT "Festplatte 1 geparkt" 

CALL park (2) 

PRINT "Festplatte 2 geparkt" 
END SELECT 
PRINT "Schalten Sie nun Ihren Rechner aus." 
PRINT "Falls Sie ein Taste betätigen, ist" 
PRINT "das Parken der Festplatte(n) aufgehoben." 
PRINT 
WHILE INKEYS = "" '!ı Endlosschleife 
WEND 
PRINT "Ende PARK, Platte nicht geparkt" 
END '! Ende 
HH HEHE HH HH HH HH HH HRHHH HH HH HH HH HH HHHHEHHHEH 
'# Hilfsroutinen # 
HH HEHE HH HH HH HH HH HH RHHH HH HH HH HH HHHH HEHE HH 
fehler: 
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30 PRINT "Fehler : ";ERR;" unbekannt" 
31 PRINT "Programmabbruch" 
32 END 'ı MSDOS Exit 


33 SUB drivesx 
'!ı ermittle die Zahl der Plattendrives per INT 13 


'ı CALL: AH = 800H DX = 0080H 
'! RETURN: DL = drives 


34 SHARED drive% 


35 REG 1, &H0800 'l AX = 0800 

36 REG 4, &H80 'ı Drives 

37 CALL INTERRUPT &Hl3 'ı BIOS INT 
! 


38 drive% = REG (4) AND &HFF 'ı Jese Wert in DL 


39 END SUB 


40 SUB park (1w%) 
!l----- -------- -- -- -- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - 
'ı positioniere Kopf auf letzte Spur 
"I CALL: AH = COOH DX = 0080H + drive_nr 


41 REG 1, &H0800 'I AX = 0800 

42 REG 4, &H80 + 1w?% '! Drive 

43 CALL INTERRUPT &H13 'ı ermittle Drivedaten 
44 '! Kopf des Laufwerkes auf letzte Spur positionieren 

45 REG 1,H0C00 '! Seek 

46 REG 3,REG (3) 'ı Inhalt von CX 

47 REG 4, &H80 + 1w?% 'ı Laufwerk 

48 CALL INTERRUPT &Hl3 

49 END SUB 





Ixkkk* Programm Ende **+**** 


Listing 6.8: PARK.BAS 


Bildschirmsteuerung über den INT 10H 


Ein weiterer interessanter Interrupt ist der BIOS-INT 10. Über diesen 
Interrupt erfolgt die Bildschirmausgabe. Die Funktionen werden daher 
direkt vom BIOS der Grafikkarte zur Verfügung gestellt. Nachfolgend 
möchte ich eine kleine Bibliothek vorstellen, die einige der BIOS-INT 10- 
Funktionen direkt benutzt. 
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Der Entwurf 


Der BIOS-INT 10 wird über den Befehl INTERRUPT aus PowerBASIC 
angesprochen. Die erforderlichen Parameter müssen in den Registern AX 
bis DX übergeben werden. Der Inhalt von AH steuert dabei die 
auszuführende Funktion. Da diese Art des Aufrufes recht unkomfortabel 
ist, sollen die einzelnen Funktionen über Prozeduren aufrufbar sein. Dann 
kann ein Anwendungsprogramm leichter auf die BIOS-Funktionen 
zugreifen. Auf eine Beschreibung der INT 10-Funktionen wird an dieser 
Stelle verzichtet. Der interessierte Leser sei auf /1/ verwiesen, wo sich 
eine detaillierte Beschreibung aller Aufrufe findet. 


Die Implementierung 


Die einzelnen Routinen bilden bestimmte BIOS-INT-10-Funktionen für 
PowerBASIC ab. Diese Routinen befinden sich in der Datei INT10.INC und 
werden nachfolgend beschrieben. 


SetMode (mode%) 


Diese Routine schaltet die Adapterkarte des Bildschirms in einen 
bestimmten Modus. Dieser Modus ist im Parameter mode% zu übergeben. 
Hierbei gilt: 


mode? = 0 40 x 25 Zeichen Monochrom 
1 40 x 25 Zeichen Farbe 
2 80 x 25 Zeichen Monochrom 
3 80 x 25 Zeichen Farbe 
4 320 x 200 Pixel Farbe 
5 320 x 200 Pixel Monochrom 
6 640 x 200 Pixel Monochrom 


Damit läßt sich der Bildschirm in den gewünschten Modus umschalten. 
Mit EGA- und VGA-Karten stehen weitere Modi zur Verfügung, die hier 
aber nicht behandelt werden. 


GetMode (mode%) 


Diese Routine ermittelt über das BIOS den aktuellen Modus der 
Adapterkarte des Bildschirms. Hierbei gelten die bei SetMode definierten 
Modi als Übergabeparameter. 


CursorSize (ymin%, ymax%) 


Der Cursor wird aus mehreren Zeilen aufgebaut. Dabei kann der Cursor 
maximal sieben Zeilen (Monochrom) und 13 Zeilen (Farbe) umfassen. Die 
Prozedur Cursorsize erlaubt es, die Größe des Cursors zu verändern. Als 
Parameter sind die unterste und die oberste Zeile zu übergeben. 


SetCursor (xpos%, yPOs%) 


Mit der Prozedur läßt sich der Cursor innerhalb des Bildschirms 
positionieren. Die beiden Parameter geben dabei die Position in Spalten (x) 
und Zeilen (y) an. Im Textmode sind 80 Spalten (Zeichen) erlaubt. Um 
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Zeichen per BIOS auszugeben, muß vorher die betreffende Cursorposition 
gesetzt werden. 


GetCursor (xpos%, yPos%) 


Mit der Prozedur läßt sich die Cursorposition abfragen. Es gelten die 
gleichen Übergabeparameter wie bei SetCursor. 


Scroll (x1%, yl%, x2%, y2%, lines%, attribut%) 


Dies ist die interessanteste Prozedur der kompletten Bibliothek. Mit den 
Parametern x1l,yl und x2,y2 läßt sich ein Fenster auf dem (Text-) 
Bildschirm definieren. Dann kann der Text innerhalb des Bildschirms 
gescrollt werden. Die Zahl der zu scrollenden Zeilen wird in lines% 
definiert. Ist der Wert negativ, wird der Fensterinhalt um n Zeilen nach 
oben verschoben. Andernfalls wird der Text n Zeilen nach unten 
verschoben. Die neu eingefügte Zeile ist mit Leerzeichen gefüllt. Der 
Parameter attribut% definiert dabei, wie die neue Zeile darzustellen ist. Es 
gilt dabei die Codierung für die Attribute von Monochrom- und 
Farbkarten. 


Weitere Einzelheiten zu den BIOS-Aufrufen finden sich in /1/. Die 
Prozeduren sind in dem folgenden Listing ausgiebig kommentiert. 


REF /2=50 (ce) Born Version 1.0 
Datei : intl0.inc Datum : 07-19-1992 Seite : 1 
Zeile Anweisung 


HH HER HH HH RHHH HH HH HH HEHE HH HHEHHHHHEHEH 
'ı File: INT10.INC 

'ı Version: 1.0 v. 16.7.92 (c) G. Born 

"1 Subroutinen zur Bildschirmsteuerung 


HHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HHHHHHHHHHHHHH 


1 SUB SetMode (mode?) 
! setze den Bildschirmmode 
mode? = 0 40 x 25 Zeichen Monochrom 
40 x 25 Zeichen Color 
80 x 25 Zeichen Monochrom 
80 x 25 Zeichen Color 
320 x 200 Pixel Color 
320 x 200 Pixel Monochrom 


! 
! 
! 
! 
! 
! 
! 
! 640 x 200 Pixel Monochrom 


i 
ı 
ı 
ı 
ı 
ı 
4 
ı 


2 REG 1, 0 + (mode% AND &HOF) 
CALL INTERRUPT &Hl1O0 
4 END SUB 


W 


5 SUB GetMode (mode%) 
'ı lese den Bildschirmmode 


ur mode? = 0 40 x 25 Zeichen Monochrom 
YA 1 40 x 25 Zeichen Color 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


PowerBasic-Programmierhandbuch 319 


2 80 x 25 Zeichen Monochrom 
3 80 x 25 Zeichen Color 

Be 4 320 x 200 Pixel Color 
5 320 x 200 Pixel Monochrom 
6 640 x 200 Pixel Monochrom 


REG 1, &HOFOO 


6 

7  CALL INTERRUPT &HlO0 

8 mode% = REG (1) AND &HOF 
9 END SUB 


10 SUB CursorSize (ymin%,ymax?%) 


11 REG 1,&H0100 

12 REG 3, (ymax% AND &HOF)*16 + (ymin% AND &HOF) 
13 CALL INTERRUPT &HlO 

14 END SUB 


15 SUB SetCursor (xpos%, ypos?%) 


16 REG 1,&H0200 
17 REG 2,0 


18 REG 4, ((ypos%+1) AND &HFF) * 256 + ((xpos%+1) AND &HFF) 
19 CALL INTERRUPT &HlO 
20 END SUB 


21 SUB GetCursor (xpos%, yPos%) 


22 REG 1,&H0300 

23 REG 2,0 

24 CALL INTERRUPT &H1O0 

25 xpos% = (REG (4) AND &HFF) + 1 

26 ypos®% ((REG (4) AND &HFF) / 256) +1 
27 END SUB 


28 SUB Scroll (x1%, y1%, x2%, y2%, lines%, attribut%) 


! up-/downscroll des Fensters um n lines 

I! x%, y% = Koordinaten Fenster 

! lines® = Zahl der zu scrollenden Zeilen 

! negativ -> upscroll, sonst downscroll 
'ı  attribut%= Attribut der neuen Zeile 

! Bit 7 = Blinkbit 

| 

| 

I 


i 3 = Intensitätsbit 

! 4-6 = Hintergrundfarbe 

! 0-2 = Vordergrundfarbe 

I een essential segeln 
29 IF lines% < 0 THEN '!i scroll up 
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30 REG 1,&H0600 + (-lines% AND &HFF) 'ı Zahl der Zeilen 
31 ELSE 'ı scroll down 

32 REG 1,&H0700 + (lines% AND &HFF) 'ı Zahl der Zeilen 
33 END IF 

34 REG 3, (y1%-1 AND &HFF)*256 + (x1%-1 AND &HFF) '! window 
35 REG A, (y2%-1 AND &HFF)*256 + (x2%-1 AND &HFF) '! window 


36 REG 2, (attribut? AND &HFF) 


37 CALL INTERRUPT &HIlO 
38 END SUB 


'! ENDE 


Listing 6.9: Bibliothek zur Bildschirmsteuerung (INT10.INC) 


Ein Beispielprogramm zu Bildschirmansteuerung 


Das nachfolgende kleine Beispielprogramm erläutert den Umgang mit 
obigen BIOS-Funktionen. Das Programm benutzt die Pop-up-Menüs zur 
Steuerung des Ablaufes. 


In den ersten beiden Menüpunkten läßt sich die Größe des Cursors 
verändern. Der folgende Menüpunkt demonstriert, wie sich 
Bildschirmausschnitte scrollen lassen. 


Textbox 


Um Text auf dem Bildschirm auszugeben, wird eine eigenen Prozedur mit 
dem Namen TextBox eingeführt. Diese Prozedur wurde aus dem Modul 
PopMenu der Bibliothek MENU.INC extrahiert. PopMenu erfüllt bereits alle 
Funktionen zur Textausgabe in einer Box. Lediglich die Cursorsteuerung 
zur Auswahl eines Menüpunktes und damit auch der Parameter nr% kann 
entfallen. Die Prozedur TextBox besitzt daher auch die gleichen Parameter 
wie PopMenu. Bei Bedarf sollten Sie den Code mit in MENU.INC 
integrieren. 


Soll eine Textbox wieder gelöscht werden, muß vorher der 
Bildschirminhalt mit OpenBox gesichert werden. Die Prozedur TextBox 
erlaubt es, Tastaturabfragen und Benutzereingaben direkt aus dem 
Anwendungsprogramm zu steuern. Damit lassen sich recht komfortabel 
Eingabemasken gestalten. Einziges Handikap ist die Positionierung des 
Eingabecursors. Hier könnte das Modul Textbox um eine weitere Funktion 
zur Gestaltung von Benutzereingaben erweitert werden. Weitere 
Einzelheiten sind folgendem Listing zu entnehmen. 


REF /2=50 (ce) Born Version 1.0 
Datei : screen.bas Datum : 07-19-1992 Seite : 1 
Zeile Anweisung 


TKKKKKAKKKKHKKKHTK KK KK HK KH KK HK KH HK KH KK KH KK KH KK KK KH KK KH KK TH TH TH KH IK KH KK KH HK KH KO 


'ı File : SCREEN.BAS 
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'ı Vers. 1.0 

'ı Last Edit 18.47.92 

'ı Autor : G. Born 

'ı Progr. Spr.: PowerBasic 

'ı Betr. Sys. : DOS 2.1 - 5.0 (DR-DOS 5.0/6.0) 


Funktion: Das Programm wird mit der Eingabe: 


| 
| 
| 
| 
I 
| 
| 
SCREEN 
| 
! aufgerufen. Es demonstriert die Verwendung 

vl der Routinen zur Bildschirmsteuerung 
(INT10.INC). 

TARKKKKKKKKK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KH KU KU 


1 


1 DIM MENS (7) '! Menütexte 

2 nr = 1 '! Zeilennr. Cursor 

3 DIM buff1%(600) '! temporäre Puffer 

4 DIM buff2%(500) 'ı max. 2000 Elemente 
5 black% = 0 'ı Farben 

6 white% = 7 

7 CALL SetMode (3) '1 80 x 25 Zeichen 


'ı Bildschirm löschen und mit Zeichen füllen 


8 CLS 
9 FOR i% = 1 TO 1999: PRINT "°"; : Next i% '! Screen füllen 


'ı Init Variable des Menüsystems, der Bildschirmadapter 
'ı liegt bei Coloradaptern bei Segmentadr. B800H, 


10 CALL Menulnit (&HB800) 'ı Init Variable 

11 done% = 0 'ı Hilfsflag löschen 

12 DO WHILE 1 'ı Schleife über 
Menüsystem 

13 Kopf$ = ("INT10 Demo") 'ı Titeltext für Menübox 

14 MEN$(1) = "Cursor Size 1" 'ı Texte für Menü 
definieren 

15 MEN$S(2) = "Cursor Size 2" 

16 MEN$S(3) = "Scroll Demo" 

17 MEN$ (4) = "Exit" 





'! Aufruf des Hauptmenüs mit Kopftext ohne Fußtext, 7 entries 
'ı als erstes muß der Fensterbereich gesichert werden 
'ı Achtung: dies darf nur 1 x erfolgen, deshalb Flag done 


18 IF done% = 0 THEN 'ı Box offen? 
19 CALL OpenBox (8,10,MENS () ,‚4,kop£$,"",buff1%()) 
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20 done% = 1 '! markiere offene Box 
21 END IF 


22 status? = 0 


23 CALL 
PopMenu (8,10,MENS$S () ,‚4,white%,black%,kopf$,"",1,status%,nr%) 
24 tmp% = nr% '! merke Selektion 
25 IF status% < O0 THEN 'ı Fehler beim Aufruf? 
26 CLS 


27 PRINT "Fehler: Menübox paßt nicht auf Bildschirm" 
28 END 


29 ELSE 

30 IF status% = 1 THEN 'l ESC gedrückt? 
31 CALL CloseBox (buff1%()) '! Schließe Box 
32 END 'ı Ja -> Exit 

33 END IF 

34 END IF 


'ı werte selektierten Menüpunkt in nr?% aus 
'!l status? = 2 oder 3 wird hier ignoriert und 
'ı wirkt daher wie RETURN !!!! 

35 IF (nr% = 1) OR (nr% = 2) THEN 











36 MEN$ (1) = "Cursor : Hr 'ı Texte für Menü 
definieren 

37 CALL OpenBox (25,10,MEN$ () ,1,"","",buff2%()) 

38 CALL TextBox (25,10,MEN$ () ,1,white%,black%,"", "Exit -> 
ESC",1,status?) 

39 IF status% < 0 THEN 'ı Fehler beim Aufruf? 

40 CLS 

41 PRINT "Fehler: Textbox paßt nicht auf Bildschirm" 

42 END 

43 END IF 

44 CALL SetCursor (32,9) 

45 IE nr# = 1 THEN 

46 CALL CursorSize (1,2) '!l Cursorgröße 1 

47 ELSE 

48 CALL CursorSize (1,7) 'ı Cursorgröße 2 

49 END IF 

50 DO WHILE INKEY$ = "" : WEND '! warte auf Input 

N CALL CloseBox (buff2%()) 'ı close Submenü 


52 ELSEIF nr% = 3 THEN 


53 heads "Scroll-Demo" 'ı Titeltext für Menübox 
54 fuss$ = "Exit->ESC" 'ı Fußtext für Menübox 
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55 
56 
57 
58 
59 
60 


61 
62 


MEN$ (1) = " " 
MEN$S (2) = "Scroll 
MEN$S (3) = "Scroll 
MEN$S (4) = "Scroll 
MEN$S (5) = "Scroll 
MENS (6) = " " 


'ı Aufruf des Menüs 


Demo" 
Demo" 
Demo" 
Demo" 


323 


'! Texte für Menü definieren 


CALL OpenBox (25,10,MEN$ () ,‚6,head$, £uss$,buff2% ()) 





CALL 


TextBox (25,10,MENS$S () ‚6,white%,black%,head$, fuss$,1,status?%) 


63 
64 
65 
66 
67 


68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 


79 


80 
8l 
82 
83 
84 
85 


86 


87 


88 
foot$, 








IF status% < 0 THEN 'ı Fehler beim Aufruf? 
CLS 
PRINT "Fehler: Menübox paßt nicht auf Bildschirm" 
END 
END IF 
flag = 0 
DO WHILE INKEY$ <> CHRS$(27) 
IF £flag% = 0 THEN 
CALL Scroll (26, 11, 15, -1, 7 
flag = 1 
ELSE 
CALL Scroll (26, 11, 155 8,7) 
flag® = 0 
END IF 
DELAY 1 
WEND 
CALL CloseBox (buff2%()) 
nr% = tmp? 
ELSE 
CALL CloseBox (buff1%()) 
END 
END IF 
WEND 
CALL CloseBox (buff1%()) 
END 
'! Routine Textbox 
SUB TextBox (x%, y%, text$ (1), items%, fcol%, bcol%, title$, 


style?%, status?) 
Subroutine für Textausgabe 


Die Routine gibt die Textbox mit dem Text aus. 


1 
1 
1 
! 
1 RE, 
1 
1 
I 


y% Anfangskoordinaten linke obere Ecke 
'! text$() Texte mit Menüpunkten 
'ı jtems% Zahl der Menüpunkte 
'ı titles Text Kopfzeile 
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89 
90 
91 


92 
93 
94 
95 


96 


97 
98 
99 
100 


101 
102 
103 
104 


105 


106 
107 
108 
109 
110 
111 
112 
113 
114 
115 


116 
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'ı foot$ Text Fußzeile 

'l style% Rahmentyp (1 = einfach, 2 = doppelt, 
'ı £col% Vordergrundfarbe 

'1 bcol% Hintergrundfarbe 


| 

| 

| 

| 

'!l status® Ergebnis des Aufrufes: 

! -2 Fehler: Initialisierung fehlt 
| 

| 


0 ok 


LOCAL maxlen%, i%, flag? 
LOCAL 10$, 1lu$, ro$, ru$, 1i$, 1lup$ 
SHARED xmax%, ymax%, initflg% 














'ı prüfe ob INIT durchgeführt 


IF initflg% <> 1 THEN 
status% = -2 

EXIT SUB 
END IF 


'ı Emittle Länge des Menüpunktes 





sonst blank 


-1 Fehler: Box paßt nicht auf Bildschirm 


CALL GetMaxLen (text$() ,items%, title$, foot$, maxlen%) 
'ı Paßt das Menü auf den Bildschirm ? 
IF (x% + maxlen? + 2) > xmax% THEN 
status% = -1 
EXIT SUB 
END IF 
IF (y% + items% + 2) > ymax% THEN 
status? = -1 
EXIT SUB 
END IF 
'ı Rahmentyp setzen 
CALL MenuLine (10$,1u$,ro$,ru$,1li$,1lup$,style%) 
'ı Rahmen zeichnen 
COLOR £fcol%,bcol% 
LOCATE y%, xX% 'ı linke obere Ecke 
PRINT 10$; 
IF (LEN (title$) > 0) THEN 
PRINT titles; 'ı Titel Textbox 
END IF 
IF LEN(title$) < maxlen‘% THEN 
FOR i% = LEN(title$) TO maxlen‘%-1 : PRINT 1i$; NEXT i% 


END IF 
PRINT ro$ 





FOR 1% = 1 TO items? 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


PowerBasic-Programmierhandbuch 325 


117 LOCATE (y%+i1%), xX% 

118 PRINT 1lup$; 

119 CALL PutLine (text$ (1%) ‚maxlen%) 
120 PRINT 1lup$ 

121 NEXT i% 


122 LOCATE (y%+items?+1l), x% 

123 PRINT 1lu$; 

124 IF (LEN(foot$) > 0) THEN 

125 PRINT £foot$; 'ı Fußtext 

126 END IF 

127 IF LEN(foot$) < maxlen% THEN 

128 FOR i% = LEN(foot$) TO maxlen%-1 : PRINT 1li$; : NEXT i% 
129 END IF 

130 PRINT ru$ 





131 status% = 0 
132 END SUB 
'ı Libs einbinden 


133 $INCLUDE "MENU.BAS 
134 $SINCLUDE "INT10.INC" 





'ı Ende 


Listing 6.10: Beispiel zur Bildschirmsteuerung 


DBVIEW: Zugriff auf dBase (DBF)-Dateien mit 
PowerBASIC 


Im Bereich der Datenbanken nimmt dBase auf MS-DOS Rechnern eine 
dominierende Stellung ein. Für Datenbankanwendungen bietet die interne 
Programmiersprache eine gute Unterstützung. Aufwendig bis unmöglich 
sind umfangreichere Berechnungen oder die Ausgabe von Grafiken. Zwar 
gibt es mittlerweile Zusatzprogramme, aber diese sind auch nicht immer 
hilfreich. 


Anders sieht es bei PowerBASIC aus, wo gerade in Richtung 
Berechnungen und Grafiken alle Möglichkeiten offen stehen. Dafür ist das 
Thema »Datenbankfunktionen« ein Schwachpunkt. Im folgenden Abschnitt 
wird nun gezeigt, wie dies für PowerBASIC funktioniert (auch wenn die 
Implementierung wegen der fehlenden Möglichkeit zur Definition eigener 
Datentypen unerwartet aufwendig wurde). Die dabei vorgestellten 
Routinen können in eigenen Programmen benutzt werden. 
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Der Aufbau der DBF-Dateien in dBase Ill 


Bevor aber über eine Lösung nachgedacht wird, sollte das Format dieser 
Dateien bekannt sein. Deshalb wird nachfolgend die Struktur der DBF- 
Dateien etwas tiefergehend diskutiert. 


dBase speichert in diesen Dateien alle Informationen, die es zur 
Bearbeitung und Auswertung braucht. Der Vorteil, daß alle Fakten in 
kompakter Form vorliegen, wird allerdings mit dem Nachteil eines 
aufwendigeren Zugriffsmechanismus auf die Daten erkauft. Die Entwickler 
sind bei der Definition einige Kompromisse eingegangen, die sich auf das 
Laufzeitverhalten erheblich auswirken. Neben Tricks zur Optimierung der 
Zugriffgeschwindigkeit sind auch Schwächen in der Abspeicherung der 
Einzeldaten erkennbar. Es ist daher aus meiner Sicht interessant, sich 
intensiver mit der internen Struktur der DBF-Dateien 
auseinanderzusetzen. Dies trägt nicht nur zur Lösungsfindung bei, 
sondern verbessert sicher auch das Verständnis für den Umgang mit 
dBase. 


Jede DBF-Datei setzt sich aus drei Teilen zusammen: dem Header, der 
Feldbeschreibung (Datensatzdefinition) und den eigentlichen Datensätzen. 
Die Informationen sind dabei gemischt im ASCI- und Binärformat 
gespeichert. Der Header enthält alle Informationen über den Aufbau der 
Datei, die Struktur ist in Tabelle 6.4 aufgeführt. 







Offset 





Bedeutung 








02H dBase II 
03H dBase III 
83H dBase III mit Memofeld 


Nummer der dBase-Version | 





Datum letzter Schreibzugriff 
im Binärformat (JJMMTT) 













Zahl der Datensätze im File 


0DH als Header Ende 


Tabelle 6.4: Format eines dBase-IlI-DBF-Headers 


Das erste Byte des Headers besitzt bereits eine Doppelfunktion. Zum einen 
dient es dBase zur Identifizierung, ob es sich um eine gültige DBF-Datei 
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handelt und welche Version vorliegt. Davon ist dann auch die 
nachfolgende Datenstruktur abhängig. Die alten dBase-II-Datenbanken 
besitzen den Wert 02H im ersten Byte. Auf deren Struktur soll nicht weiter 
eingegangen werden. Ab dBase III findet sich im unteren Nibble (Bit O .. 3) 
der Wert 3H. Das oberste Bit (7) dient zur Markierung, ob die Datei 
Memofelder enthält. In diesem Fall ist der DBF-Datei ein DBT-File mit den 
Texten zugeordnet, und das Byte enthält demnach den Code 83H. In allen 
anderen Fällen findet sich der Wert OSH. 


Das nächste Feld umfaßt drei Byte mit dem im Binärformat codierten 
Datum des letzten Schreibzugriffes in der Form JJMMTT. Dies bedeutet, 
im ersten Byte steht das Jahr (O .. 99). Warum die Entwickler dieses Feld 
vorgesehen haben, ist mir schleierhaft, da DOS bereits im Directory zu 
jedem Dateinamen auch das Datum und vor allem die Zeit des letzten 
Schreibzugriffes führt. Beim Kopieren kompletter Dateien wird dagegen 
das Datum der Quelldatei mit übernommen. Das folgende Feld umfaßt 
vier Byte, in denen die Zahl der Datensätze in der DBF-Datei geführt wird. 
Die Bytes werden als vorzeichenlose 32-Bit-Zahl interpretiert, wobei die 
üblichen Intel-Konventionen zur Speicherbelegung (Low Byte der Zahl auf 
der untersten Adresse) gelten. Auch hier lohnt sich eine Beschäftigung mit 
den Interna. Was heißt denn eigentlich »Zahl der Datensätze« dBase hängt 
bei jedem APPEND BLANK-Befehl einen neuen (leeren) Datensatz mit den 
definierten Feldern an die DBF-Datei an. Nun gibt es noch den DELETE- 
Befehl, der einen Satz aus der Datei entfernt. Aus Effizienzgründen 
beschränkt sich dBase aber darauf, einen gelöschten Satz mit einer 
Markierung »*« im ersten Byte zu kennzeichnen. Dies führt zu schnellen 
DELTE-Operationen und ermöglichst sogar ein Undelete ohne größeren 
Aufwand. Aber die Sätze verbleiben nach wie vor in der Datenbanktabelle. 
So kann eine solche Tabelle viele hundert gelöschte Datensätze aufweisen, 
die als Daten noch vorhanden sind. Zugriffe ohne Index werden dadurch 
recht langsam, da für einen Zugriff auf den Folgesatz alle dazwischen 
liegenden Sätze (gelöscht oder ungelöscht) zu lesen sind. Um diesen 
Nachteil zu korrigieren, bietet dBase den PACK-Befehl, mit dem die 
gelöschten Sätze aus der DBF-Datei entfernt werden. An die Stelle des 
gelöschten Records wird ein nachfolgender gültiger Satz kopiert. Der 
Eintrag im Kopf enthält immer die Gesamtzahl der Records in der 
Datenbank, unabhängig von ihrer Gültigkeit. Erst mit einer PACK- 
Anweisung reduziert sich der Eintrag im Header. An dieser Stelle möchte 
ich noch einen weiteren Hinweis geben. Nach einer PACK-Operation muß 
sich nicht unbedingt die Größe der DBF-Datei geändert haben. DOS 
verwaltet Dateien über sogenannte Cluster, die je nach Medium eine 
verschiedene Größe besitzen. Ein Cluster ist dann die kleinste belegte 
Einheit auf einem Medium. Die Implementierung von dBase II bildet nun 
die interne Datenbankstruktur auf DOS-Dateien mit Clustern ab. Auch 
wenn nun Datensätze mit PACK gelöscht werden, verändert dBase die 
Größe der Datei nicht, sondern beschränkt sich auf das Verschieben der 
gültigen Sätze auf gelöschte Positionen. Das Ende des gültigen 
Datenbereiches wird anschließend durch das EOF-Zeichen 1AH markiert. 
Ein Lesezugriff über die DOS-Funktionen mit einer EOF-Abfrage 
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funktioniert nicht, denn im Binärmodus stimmt das DOS-Dateiende nicht 
mit dem logischen dBase-Dateiende überein. Vielmehr stehen die alten 
(gelöschten oder verschobenen) Sätze nach wie vor in der Datei und 
können auch gelesen werden. Wer einen Zugriff im Textmodus versucht - 
dieser erkennt 1AH als EOF - wird ebenfalls scheitern, da eine DBF-Datei 
ja ASCH- und Binärdaten enthält. Bereits im Datumsfeld kann der Eintrag 
l1AH vorkommen. Das logische Dateiende läßt sich damit nur über die 
Recordzahl im Header identifizieren. Sobald dieser Zeiger zerstört ist, 
besitzt dBase keine Möglichkeit zur Restaurierung der Datenbank mehr. 
Erst wenn die Datenbank mit dem dBase-Befehl COPY FILE TO in eine 
andere Datei kopiert wird, verkleinert sich die Dateilänge, da dann nur die 
gültigen Sätze übertragen werden. 


Dies bringt natürlich einige Nachteile mit sich, angefangen von dem 
aufwendigeren Zugriff bis hin zu dem unnötig belegten Speicherplatz auf 
der Diskette/Platte. Ein Vorteil soll aber nicht unerwähnt bleiben: 
Dadurch, daß sich die Dateigröße nicht immer bei PACK-Operationen 
ändert, wird einer Fragmentierung der Platte vorgebeugt. Dieser Effekt tritt 
unter DOS immer dann auf, wenn Dateien ständig in ihrer Größe variiert 
werden und mit der Zeit über verschiedene - nicht zusammenhängende - 
Cluster verstreut sind. Dies verschlechtert natürlich (wegen der vielen 
Kopfbewegungen) die Zugriffszeiten auf die Dateien. 


Das nächste Feld im Header umfaßt eine vorzeichenlose 16-Bit-Zahl, in 
der die Länge des Headers in Byte steht. 


Die Länge eines Datensatzes wird im nächsten Feld als vorzeichenlose 16- 
Bit-Zahl geführt. Dieser Wert ist immer um ein Byte höher als die 
rechnerische Summe der einzelnen Feldlängen. Dies ist darin begründet, 
daß am Satzanfang ein Byte zur Markierung gelöschter Sätze reserviert 
wird. 


Nun kommt ein reservierter Bereich mit 20 Byte, der nicht weiter 
interessiert. Damit sind im Prinzip die in Tabelle 6.4 beschriebenen 
Headerinformationen abgehandelt. 


Was noch fehlt sind die Informationen über den Aufbau der Datensätze. 
Diese finden sich in Form einzelner Feldbeschreibungen, die im Anschluß 
an den Header gespeichert sind. Für jedes Feld der Datenbank findet sich 
ein Satz mit 32 Byte, der das in Tabelle 6.5 gezeigte Format besitzt. 


Name des Feldes in ASCII- 
Zeichen mit 00H abgeschl. 








OBH Zi Feldtyp in ASCII (C, N, L, 
D, M) 

oCH 4 Feldadresse im Speicher 

10H 1 Feldlänge in Byte 
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11H 1 Nachkommastellen in Byte 


reserviert 


ID für Arbeitsbereich 





reserviert 
17H 1 SET FIELDS Marke 
18H 8 reserviert 


Tabelle 6.5: Format der dBase-IlI-DBF-Feldbeschreibung 


Die ersten elf Byte der Feldbeschreibung sind für den Namen des Feldes 
reserviert, der als ASCII-Text abgelegt wird. Das Zeichen O0OH schließt eine 
Zeichenkette ab. Umfasst der Feldname keine elf Zeichen, werden die 
restlichen Bytes deshalb mit den Werten OOH belegt. 


Im nächsten Byte steht das ASCII-Zeichen für den Feldtyp. Dieser wird 
gemäß der in Tabelle 6.6 gezeigten Notation codiert. 


Zeichen| 1yp | erlaubte Zeichen 





N Num. 10 PER: Pa 


JjNnTtF£f? 


D Datum JJJIMMTT 





DBT Blocknummer 





Tabelle 6.6: Codierung der dBase-IlI[-Feldtypen 


An den Feldtyp schließt sich ein 4-Byte-Vektor an, der die 
Felddatenadresse enthält. Diese Adresse wird nur für die Bearbeitung im 
Hauptspeicher benötigt und besitzt auf dem Speichermedium keine 
Bedeutung. 


Die Feldlänge findet sich im Header ab Offset 16 und ist in einem Byte als 
Binärcode abgelegt. Damit kann ein Feld maximal 256 Zeichen umfassen. 
Bei numerischen Feldern gibt der Wert die Zahl der Stellen (einschließlich 
des Dezimalpunktes) an. Bei Memo-Feldern beträgt die Feldlänge genau 
zehn Byte, in denen eine Blocknummer für die zugehörige DBT-Datei 
gespeichert wird. 


»Logical«-Felder besitzen die Länge 1, während bei Datums-Feldern immer 
acht Byte reserviert werden.»Bei numerischen Feldern spezifiziert das 
Folgebyte die Zahl der Nachkommastellen. Bei allen anderen Feldtypen 
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besitzt der Eintrag den Wert OOH. Wichtig ist, daß die Zahl der 
Nachkommastellen immer kleiner als die Feldlänge ist. 


Die restlichen 14 Byte sind für interne Zwecke reserviert und interessieren 
für den Zugriff auf die Datenbanken nicht weiter. Sie müssen lediglich 
beim Zugriff auf die Feldbeschreibung gelesen werden. Auch das SET 
FIELDS-Byte ist nicht weiter relevant, da dBase diesen Eintrag 
offensichtlich nur im Speicher benutzt. Einzelheiten sind der Tabelle 6.3 
zu entnehmen. 


Für jedes Feld der Datenbank findet sich ein eigener 32-Byte-Satz mit 
obigen Informationen. Das Ende der Felddefinitionen wird durch das 
Zeichen ODH markiert. Auch hier merkt man den ASCI-orientierten 
Aufbau der DBF-Dateien. Damit ist der Header komplett beschrieben und 
alle Informationen über den Aufbau der Datensätze liegen vor. 


Die eigentlichen Datensätze werden von dBase an den Definitionsteil 
angehängt. Die Recordlänge richtet sich nach der Länge der jeweiligen 
Felder und wird im Header der Datei geführt. Der Wert ist immer um 1 
Byte größer als die Summe der Feldlängen, da vor jedem Record ein 
Eintrag für Markierungszwecke reserviert wird. Die Datensätze werden im 
reinen ASCI-Format ohne Trennzeichen gespeichert. Damit ist der Import 
und Export von Daten mit der dBase-SDF-Option natürlich recht einfach. 
Weiterhin lassen sich alle Felder, unabhängig von ihrem Typ, als ASCH- 
Text bearbeiten. Allerdings wird dies mit einem erheblichen Aufwand für 
die Bearbeitung und Speicherung numerischer Werte erkauft. Bei 
Berechnungen ist vor jeder Schreib-/Leseoperation eine Konvertierung 
erforderlich. Das erste Byte im Satz dient zur Markierung gelöschter 
Daten. Bei neuen Sätzen wird hier ein Leerzeichen eingetragen. Die 
»Delete«-Funktion schreibt nur ein »*« in dieses Byte. Damit ist der Satz als 
gelöscht markiert und kann durch den PACK-Befehl entfernt werden. Wird 
ein neuer Satz mit APPEND BLANK angehängt, fügt dBASE eine 
entsprechende Anzahl an Leerzeichen an das Dateiende ein. Der Abschluß 
des gültigen Datenbereiches wird durch das Zeichen 1AH markiert, d.h. 
die »EOF-Marke« wird nicht durch DOS, sondern durch dBASE verwaltet. 
Die EOF-Abfrage aus DOS funktioniert aus diesem Grunde nicht bei DBD- 
Dateien. Hinter dem Zeichen 1AH können durch korrekt aufgebaute Sätze 
auftauchen, die aber nicht mehr zum gültigen Bereich der Datenbank 
gehören. Hier wäre es aus meiner Sicht besser gewesen, wenn die 
Entwickler die DOS-I/O-Funktionen zur Veränderung der Dateigröße 
benutzt hätten. 


Der Entwurf 


Nach dieser etwas ausführlicheren Diskussion der DBF-Dateistruktur 
wenden wir uns der eigentlichen Aufgabe zu. Aus Programmen soll direkt 
auf die DBF-Datei zugegriffen werden. Da die Struktur bekannt ist, liegt 
die Lösung nahe. Zuerst ist der Header zu lesen, dann müssen die 
Feldbeschreibungen decodiert werden. Anschließend kann auf die 
Datensätze der Datei zugegriffen werden. Da alle Daten als ASCII-Zeichen 
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vorliegen, ist keine Konvertierung erforderlich. Günstig ist es jedoch, wenn 
diese Operationen nicht dediziert im Programm vorkommen, sondern in 
einzelnen Modulen versteckt werden. Dann lassen sich transparente und 
änderungsfreundliche Programme erstellen. 


Benötigt werden folgende Funktionen: 
e Lies einen Satz aus der DBF-Datei. 
e Schreibe einen Satz in die DBF-Datei. 
e Hänge einen Leersatz an. 
«e Positioniere den Schreib-/Lesezeiger. 


Die Details der Implementierung werden im nachfolgenden Abschnitt 
besprochen. 


Die Implementierung 


Für die Bearbeitung der DBF-Dateien werden folgende Funktionen 
vorgesehen, die in der Datei DBF_LIB.INC gespeichert sind. 


Die Datei DB_DEF.INC enthält alle globale Variablen, die von den 
Bibliotheksmodulen benötigt werden. Diese Definitionen sind nachfolgend 
aufgeführt. 


Bu EZ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 23 


'ı Include-Datei DB_DEF.INC für den DBF-Header mit 

der Feldbeschreibung. Die Definition muß im Haupt- 
programm eingebunden werden! 

Die restlichen Definitionen finden sich in den 
Funktionen zum Zugriff (Variable sind SHARED !!!!) 
AAKKKAKKAKKKKKKKKKKKKK KK KK HK KH TH HK KK TH KH KH KK AK KH KH KH TK AK KK KH AK KH AK KK A KO 
Aufbau des Headers einer DBF-Datei 

ver STRING * 1 '! Version 03H oder 83H 
datum STRING * 3 'ı Datum JJ MM TT 

rec& LONG '! Records in Datenbank 
headb INTEGER 'ı Zahl der Bytes im Kopf 
recbyte INTEGER 'ı Zahl der Bytes pro Record 
reserve STRING * 20 'l reservierte Bytes 


Aufbau der Feldbeschreibung der DBF-Datei 








| 
'ı feldname STRING * 11 'ı Feldname 11 Zeichen 
'ı £ftyp STRING * 1 'ı cCNLDM 
'ı dummyl STRING * 4 'ı Dummy Feld 
'ı laenge STRING * 1 'ı Zahl der Stellen 
'ı komma STRING * 1 'ı Zahl der Nachkommastellen 
'ı dummy2 STRING * 2 '!l reservierte Bytes 
"Eid STRING * 1 'ı ID Byte 
'ı dummy3 STRING * 11 'l reserviert 
Ne a a a a a EN a a a a En ea ah a a se a Ba a a un 
headers = "" '!ı nimmt 32-Byte Header auf 
ver? = 0 'ı 1. Header Byte nach USE 
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rec& =0 'ı Zahl der DBF-Records 
headb% =0 '! Headerlänge in Byte 
reclen? = 0 '! Recordlänge in Byte 
anzahl® = 0 'ı Zahl der Felder in DBF 


! Name DBF-Feld 10 Zchn 

! Feldtyp DBF-Feld "C,N,T,.." 
! Feldlänge 

! Nachkommastellen 

! Buffer für Feldinhalt 


DIM feldnames$ (128) 
DIM ftyp$ (128) 

DIM laenge?% (128) 
DIM komma?% (128) 
DIM feldinh$ (128) 


recofs& = 0 'ı Offset Anfang aktueller Satz 


'ı Hilfsvariable für MOVE 
DIM a% (2) 

tmp$ Zu. EAN 

! Ende Definition 


Die Datei muß im Hauptprogramm im Kopf mit INCLUDE eingebunden 
werden, damit die Variable auch der Anwendung zur Verfügung stehen. 
Die Bedeutung der einzelnen Variable ist den Kommentaren zu 
entnehmen. 


Die verschiedenen Funktionen zum Zugriff auf die DBF-Dateien wurden 
nach Möglichkeit als PowerBASIC-Prozeduren definiert. Lediglich ein 
Modul zur Typkonvertierung mußte in Assembler implementiert werden. 
Nachfolgend werden die einzelnen Module vorgestellt. 


MOVE (len%, ziel,quell) 


Dies ist die einzige Prozedur, die in Assembler formuliert wurde. Aufgabe 
ist es, den Inhalt der Quelle in das Ziel zu verschieben. Die Zahl der Bytes 
wird dabei im Parameter len% angegeben. Als Quelle und Ziel müssen die 
Adressen der jeweiligen Variable angegeben werden. Bei Integervariablen 
wird die Adresse standardmäßig vom Compiler eingesetzt. Die Routine 
MOVE wird jedoch verwendet, um Strings in Integervariablen abzulegen. 
Bei Strings wird aber die Adresse auf einen Descriptor als Parameter 
übergeben. Um die Adresse des ersten Zeichen des Strings als Parameter 
zu übergeben ist folgende Sequenz erforderlich: 


DIM a% (2) 
a% (1) = STRPTR(txt$) 
a%(2) = STRSEG(txt$) 


CALL MOVE (2,reclen%, a%(1)) 


Obige Sequenz verschiebt zwei Byte aus dem String txt$ in die Variabel 
reclen%. Dies wird im Modul USE bei der Konvertierung von Binärwerten 
des Headers benötigt. Der Header wird byteweise in einen String gelesen. 
Dann werden die einzelnen Binärwerte in Integervariable konvertiert. 


Das Programm selbst wurde in Assembler codiert. Da kein Assembler zur 
Übersetzung zur Verfügung stand, habe ich das DOS-Programm DEBUG 
zur Assemblierung verwendet. Die Binärdatei wird dann mit $INLINE 
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"MOVE.COM" in Basic integriert. Einzelheiten bezüglich der Einbindung 
sind dem Listing der Bibliothek zu entnehmen. 


Interessant ist jedoch noch die Parameterübergabe von Basic an 
Assembler. Basic übergibt die Adressen der jeweiligen Parameter auf dem 
Stack. Die Prozedur wird dabei als CALL FAR aufgerufen. Damit ergibt 
sich für obigen Aufruf von MOVE folgendes Stackabbild: 





IT] 
Adr. Len 
SS:SP+0C 
Adr. Quelle 
SS:SP+8 
SS:SP+4 


RET-Adr. 
SS:SP 


Bild 6.6: Übergabeparameter 


Jeder Eintrag auf dem Stack besteht in diesem Fall aus vier Byte, wobei 
das Low-Word eines Parameters auf den unteren Stackadressen 
gespeichert ist. Dies muß beim Zugriff auf die Stackdaten berücksichtigt 
werden. Als letzter Parameter wird die Rücksprungadresse auf dem Stack 
gehalten. Um den Inhalt der Parameter zu lesen, muß die Adresse vom 
Stack als Zeiger benutzt werden. Die Einzelheiten sind nachfolgendem 
Listing zu entnehmen: 


; Routine zum Verschieben von n Bytes 

; Aufruf: CALL MOVE (Len, Ziel, Quelle) 
R Len = Zahl der Bytes 

; ziel Adresse Ziel 

; Quelle = Adresse Quelladresse 


PUSH BP ; BP 


MOV BP,SP ; BP auf Stack 

ADD BP,02 ; alter SP 

PUSH ES ; merke ES 

PUSH DS ; merke DS 

PUSHF 

PUSH BX 

PUSH AX 

PUSH CX 

PUSH SI 

PUSH DI 

; lese Adresse der Quelladresse vom Stack 
MOV SI, [BP+04] ; Of£fs-PTR auf Quelle 
MOV DS, [BP+06] ; Seg-PTR auf Quelle 
MOV AX, [SI] ; ermittle Adresse String 
MOV CX, [SI+2] 5 " 

MOV SI, AX ; a 

MOV DS, CX ; ” 


; lese Len - Parameter und speichere in CX 
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MOV BX, [BP+0C] ; Ofs. Len 

MOV AX, [BP+O0E] ; Seg. Len 

MOV ES, AX 

ES: MOV CX, [BX] ; LEN in CX 

; lese Zieladresse von Stack 

MOV DI, [BP+8] ; Ofs. Ziel 

MOV ES, [BP+O0A] ; Seg. Ziel 

; verschiebe Speicherbereich 

REP 

MOVSB 

POP DI 

POP SI 

POP CX 

POP AX 

POP BX 

POPF 

POP DS ; restauriere DS 
POP ES ; restauriere ES 


; restauriere BP 
; Dummy zur Sicherheit 


us] 
(@) 
ae) 
{us} 
ae} 


n MOVE.COM 
r cxX 

3A 

W 


q 
Listing 6.11: MOVE.ASM 


Beispiele für die Verwendung finden sich im Modul USE. 


Die nachfolgend beschriebenen Module wurden alle in Basic 
implementiert. 


USE (handle%,filename$,status%) 


Mit dieser Prozedur ist (in Anlehnung an die dBase-Notation) eine DBF- 
Datei zu öffnen. Der Dateiname muß dabei in filename$ übergeben 
werden. Der Parameter handle% muß vor dem Aufruf mit einer 
Dateinummer belegt werden, die noch keiner offenen Datei zugewiesen 
wurde. Über diese Dateinummer erfolgen die Zugriffe auf die Daten, und 
mit der Nummer wird auch die Datei geschlossen. Das Modul prüft nach 
dem Aufruf, ob die Datei vorhanden ist. Im Fehlerfall wird das Programm 
abgebrochen. Deshalb ist im Anwendungsprogramm eine Fehlerroutine zu 
definieren. Ist die Datei vorhanden, wird der Header gelesen und 
ausgewertet. Einzelne Parameter werden in den globalen Variablen (siehe 
DB_DEF.INC) gespeichert und sind im Hauptprogramm zugänglich. Der 
Parameter status% enthält nach der Rückkehr einen Code mit folgender 
Bedeutung: 


Status Bedeutung 
0 ok 
aB Sr 
2 keine gültige DBF-Datei 
3 dBase-II-File (illegal) 
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4 EOF beim Lesen des Headers 
5 kein EndOfHeader gefunden 


Tabelle 6.7: Statuscodes von USE 


Nur wenn status%=0 zurückgegeben wird, konnte die DBF-Datei korrekt 
geöffnet werden. Andernfalls sollte das Programm beendet werden, da 
keine dBase-IIl-Datei vorliegt. Vorher ist die Datei mit der PowerBASIC- 
Anweisung CLOSE zu schließen. Die Dateinummer ist mit handle% 
identisch. Nach einem Aufruf von USE steht der Schreib-/Lesezeiger auf 
dem ersten Datensatz des Headers. 


GetRecord (handle%,status%,buffer%) 


Dieses Modul liest einen Datensatz aus der mit handle% spezifizierten 
Datenbank und überträgt die Informationen in den Textpuffer buffer$. Der 
Lesezeiger muß bereits auf den Anfang des Satzes gesetzt sein (skip). Ein 
weiterer Aufruf von GetRecord liest den gleichen Satz der Datenbank, da 
die Zeiger nur durch Skip, GotoBottom, GotoTop und AppendBlank 
verändert werden. 


Ein unmittelbar darauffolgender PutRecord-Aufruf schreibt somit die 
Daten über den alten Datensatz. Die Prozedur separiert zusätzlich die 
einzelnen Feldinhalte und legt die Teilstrings in der globalen Feldvariablen 
feldinh$( ab. Der Parameter status% gibt nach dem Aufruf einen Hinweis 
auf Fehler (0 -> ok, 1 -> Fehler: EOF erreicht). Die einzelnen Feldinhalte 
lassen sich auch aus der Variablen buffer$ extrahieren. 


PutRecord (handle%,status%,buffer$) 


Dieses Modul schreibt den Inhalt des Puffers in die mit handle% 
spezifizierte Datenbank zurück. Die Länge des Puffers (buffer$) muß mit 
der Länge der dBase-Datensätze übereinstimmen. Es wird der Datensatz 
überschrieben, der aktuell durch den Schreib-/Lesezeiger adressiert wird. 
Die Positionierung dieses Zeigers erfolgt durch Skip, AppendBlank, 
GotoTop und GotoBottom. In status% findet sich nach dem Aufruf der 
Fehlercode (O0 -> ok, 1 -> Fehler: falsche Satzlänge). 


AppendBlank (handle%) 


Dieses Modul fügt einen neuen (leeren) Datensatz am Ende der Datenbank 
an. Daten lassen sich anschließend mit der Funktion PutRecord in diesen 
Satz übertragen. Gleichzeitig wird der Schreib-/Lesezeiger auf diesen 
neuen Datensatz gesetzt. Der Parameter handle% spezifiziert dabei die 
Nummer der mit USE geöffneten Datei. 


Skip (handle%, status%, records%) 


Da die GetRecord- und PutRecord-Aufrufe die relative Lage des internen 
Datenzeigers nicht verändern, wird das Modul Skip zur Positionierung 
benutzt. Jeder Aufruf verschiebt die Schreib-/Leseposition der durch 
handle% definierten Datei um record% Sätze. Die Richtung wird dabei 
durch das Vorzeichen von record% bestimmt. Negative Werte verschieben 
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den Zeiger zum Dateianfang. Wird der Dateianfang oder das Dateiende 
erreicht, enthält status% nach dem Aufruf den Wert 1. Sonst wird O 
zurückgegeben. 


GotoBottom (handle%,status%) 


Um die Datensätze zu adressieren, werden weitere 
Positionierungsfunktionen benötigt. Mit GotoBottom läßt sich der Schreib- 
/Lesezeiger auf den ersten Satz der mit handle% adressierten Datenbank 
positionieren. Bei diesem Satz kann es sich durchaus um einen als 
gelöscht markierten Record (»*« als erstes Byte) handeln. In status% wird 
immer der Wert O zurückgegeben. 


GotoTop (handle%,status%) 


Mit GotoTop läßt sich der Schreib-/Lesezeiger auf den letzten Satz der mit 
handle% adressierten Datenbank positionieren. Bei diesem Satz kann es 
sich durchaus um einen als gelöscht markierten Record (*« als erstes 
Byte) handeln. In status% wird immer der Wert O zurückgegeben. 


DBEof (handle%,status%) 


Nun fehlt noch eine Funktion, die das Dateiende der DBF-Datenbank 
nach einer Skip-Anweisung erkennt. Die DOS-EOF-Funktion ist ja hierzu 
nicht in der Lage. Die Prozedur DBEof übernimmt diese Aufgabe. 


Es ließen sich sicher noch einige Erweiterungen einbringen. Aber zur 
Demonstration und für den grundsätzlichen Umgang mit DBF-Dateien 
reichen die Module aus. Einzelheiten sind dem nachfolgenden Listing zu 
entnehmen. 


Progr. Spr.: PowerBasic 4.0 / 4.5 
Funktion: Library mit Routinen zum Zugriff auf dBase DBF- 


REF /2=55 (ce) Born Version 1.0 
Datei : dbf_lib.inc Datum : 07-20-1992 Seite : 1 
Zeile Anweisung 
IKAKKKKKKKKKHKTKH KK KK HK KK KH KHK TH KH TH KH KK KH KH HK KH KK KK TH TH KH KK KK IK KH KH KK TK AK KK A KH AK A KH KR) 
'ı File : DBF_LIB.INC 
'l Vers. = 1.0 
'ı Last Edit :- 20.6.,,92 
'ı Autor : G. Born 
Le | 
u 


Files 
IAKAAKKKKKAKKHKKKHKH HK TH HK HK TK TH KH FH TH KH TH TH FH KH KT TH FH TH TH TK TH FH KH KT TH FH FH TH TH AH AH KH KH A KH A a 


De 
1 SUB MOVE INLINE 

'! CALL MOVE (LEN, ZIEL, QUELLE) 

'ı Die Prozedur verschiebt n Byte eines Strings in die 

'ı Zieladresse. Achtung: der String muß mit seiner Adresse 
'! angegeben werden. 
| 
| 
| 





! Bsp.: A$S="AB" String 
DIM 3% (2) Adress Dummy 
X =0 ziel 
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ı a% (1) = STRPTR (AS) 
2 a% (2) = STRSEG (A$) 
Wi CALL MOVE (2, X%, a5(1) verschiebe 2 Byte 


2 $SINLINE "move.com" 
3 END SUB 
4 SUB USE (handle%, filename$, status?) 


Die Routine Öffnet eine gültige DBASE III-Datei. 


'ı Parameter: handle% = Nummer Filehandle 

! filename$ = Dateiname 

! status? = Fehlerstatus USE-Aufruf 
1 0 -> ok, 


2 -> keine DBF-Datei (dBase III) 
3 -> DBF-Datei (dBase II) 

4 -> EOF erreicht 

5 -> kein Header Ende 








5 SHARED header$, ver?%, rec&, headb%, reclen?, anzahl? 
6 SHARED feldname$(), ftyp$(), laenge%(), komma% (), recofs& 
7 LOCAL i?%; headend$, tmp$ 
8 DIM a%(2) 
'ı öffne die DBF-Datei im BINARY-Mode 
'ı Achtung: da PB bei fehlender Datei diese 
'ı anlegt, wird erst im INPUT-Mode geprüft, 
'! ob die Datei vorhanden ist!!! 
9 OPEN filename$ FOR INPUT AS #handle% '! Datei vorhanden? 
10 CLOSE #handle% 
11 OPEN filename$ FOR BINARY AS #handle?% '! öffne als Binary 
12 GET$ #handle%, 32, headers 'ı lese Kopf der Datei 
13 ver% = (ASC(MID$S (header$,1,1))) '! decodiere Signatur 
14 IF (ver% <> &H83) AND (ver?% <> &H03) THEN 
15 CLOSE #handle% 'ı schließen, da 
16 status% = 2 '! keine DBF 
17 EXIT SUB 
18 ELSEIF (ver% = &H02) THEN '! DBASE II Header 
19 CLOSE #handle% 'ı schließen, da 
20 status? = 3 'ı dBase II DBF 
21 EXIT SUB 
22 END IF 
23 tmp$ = MID$ (header$,5,4) '! Elemente decodieren 
24 a%(1) = STRPTR(tmp$) 
25 a%(2) = STRSEG(tmp$) 
26 CALL MOVE (4,rec&,a%(1)) 'ı Zahl der Records 


27 tmp$ = MID$ (header$,9,2) 
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28 a% (1) = STRPTR(tmp$) 

29 a%(2) = STRSEG(tmp$) 

30 CALL MOVE (2,headb%,a% (1)) '! Headerlänge 
31 tmp$ = MID$ (header$,11,4) 

32 a%(1) = STRPTR (tmp$) 

33 a%(2) = STRSEG(tmp$) 

34 CALL MOVE (2,reclen?%,a%(1)) '! Recordlänge 


'! lese und decodiere die Feldbeschreibung der DBASE III- 
'ı Datei, es sind maximal 128 Felder zulässig 


35 anzahl% = ((headb?% - 1) / 32) -1 'ı Zahl der Felder 

36 SEEK #handle%, 32 '! setze Zeiger auf 1. 
Feld 

37 FOR i% = 1 TO anzahl% 'ı lesen 
Felddefinitionen 

38 GET$ #handle%,32, feld$ '!ı lese Definition 
Feld 

39 IF EOF(handle%) THEN '! Fehler abfangen? 

40 CLOSE #handle% 'ı schließen, da 

41 status% = 4 '! BEOF erkannt 

42 EXIT SUB 

43 END IF 


44 feldname$(i%) = MID$(feld$,1,10) 'ı Feldname 

45 ftyp$(i%) = MID$ (feld$,12,1) '! Feldtyp 

46 laenge%(i%) = ASC(MID$S (feld$,17,1)) 'ı Länge 

47 komma%(i%) = ASC(MIDS$S (feld$,18,1)) 'ı Dezimalstellen 





48 NEXT i% 


49 GET$ #handle%,1, headend$ , 
50 IF headend$ <> CHR$S(&HOD) THEN ! 
54 CLOSE #handle% \ 
52 status% = 5 1 
53 EXIT SUB 


lese Zeichen 

Ende = 0DH 
schließen, da kein 
Ende Header da 


54 END IF 

55 recofs& = SEEK (handle?) 'ı merke Offset 1. 
Datensatz 

56 END SUB IL Krk se Krkrkr 


57 SUB GetRecord (handle%, status%, buffer$) 


'ı lese einen Satz aus der DBASE III - Datenbank und 
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'! gebe das Ergebnis in buffer$ zurück. Die Daten sind 
'ı als ASCII - Text in der Datenbank abgelegt. 
'ı handle% = filehandle, status% = 0 ok., 1 = EOF 


Niszszuagsgsasusn sense 
"1 
58 SHARED header$, ver%, rec&, headb%, reclen?, anzahl? 
59 SHARED feldname$ (), ftyp$(), laenge%(), komma% (), recofs& 
60 SHARED feldinh$() 
61 LOCAL i?%, ptr%, lang% 





62 status% = 0 


63 SEEK #handle%, recofs& 'ı auf Satzanfang 
64 GETS #handle?%, reclen% ‚buffer$ '! lese Satz in Buffer 
65 IF EOF(handle%) THEN 

66 status? = 1 'i Error 

67 ELSE 

68 ptr?% = 2 

69 FOR i% = 1 to anzahl? '! separiere Felder 
70 lang% = laenge% (i%) 'ı Feldlänge 

71 £feldinh$ (i%) = MID$S (buffer$,ptr%, lang?) 

72 ptr? = ptr% + lang? 

73 NEXT i% 

74 END IF 

75 END SUB '! ***xx%* GetRecord **%*%** 


76 SUB PutRecord (handle%, status%, buffer$) 


! Schreibe einen Satz in die DBASE III - Datenbank. 
! Die Daten sind als ASCII - Text im Puffer, geordnet 
! nach Feldern, abzulegen. Achtung: Die Bufferlänge 
'! muß gleich der Recordlänge in DBASE sein !!! 
! Der Inhalt des Puffers wird an der aktuellen Stelle 
! in die Datenbank abgespeichert. 

! handle% = filehandle, status% = 0 ok., 1 = Fehler 


77 SHARED header$, ver%, rec&, headb%, reclen?, anzahl? 
78 SHARED feldname$(), ftyp$(), laenge%(), komma%(), recofs& 
79 LOCAL datums$ 





80 IF (LEN(buffer$) <> reclen%) THEN '! Buffer = Satzlänge 

8l status? = 1 '! Satzlänge falsch 

82 EXIT SUB 

83 END IF 

84 SEEK #handle%, recofs& 'ı auf Satzanfang 

85 PUT$ #handle%, buffer$ 'ı schreibe Buffer in 
DB 

86 datum$ = CHRS$ (VAL (MID$ (DATE$,9,2)))_ '! Jahr 

87 + CHRS$ (VAL (MID$ (DATE$,1,2)))_ '! Monat 

88 + CHRS$ (VAL (MID$ (DATES$,4,2))) 'ı Tag 


89 SEEK #handle?, 1 
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90 PUT$S #handle?%, datums$ '! Datum aktualisieren 
91 status? = 0 


92 END SUB '!! **x*%*%* PutRecord ***** 


93 SUB AppendBlank (handle?) 
!l----- -------- ---------- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - 
'ı Hänge einen leeren Satz in die DBASE III - Datenbank an. 
'ı nach dem Aufruf steht der Schreiblesezeiger auf diesem 


'ı Satz, d.h. PutRecord kann direkt Daten speichern. 
N a0 aaa ann in a na a an a at me na AD an 


"1 
94 SHARED header$, ver%, rec&, headb%, reclen%, anzahl? 
95 SHARED feldname$(), £typ$(), laenge%(), komma?%(), recofs& 





96 LOCAL buf$, satz$, i%, tmp& 


97 satz$ = SPACE$ (reclen?%) + CHRS(&HIA) '! Leersatz mit EOF 


98 rec& = rec& +1 


99 recofs& = headb% + (rec& * reclen?) 'ı Endezeiger 
100 SEEK #handle?, recofs& 'ı an Dateiende 
101 PUT$ #handle?, satzs$ '! append Leersatz 


'ı Datum und Recordzahl im Header korrigieren 


102 buf£fs$ = CHR$ (VAL (MID$ (DATE$,9,2))) _ 'ı Jahr 

103 + CHR$ (VAL (MID$ (DATE$,1,2))) _ 'ı Monat 

104 + CHRS$ (VAL (MID$ (DATE$,4,2))) 'ı Tag 

105 tmp& = rec& 

106 FOR i% = 1 to 4 

107 buf$ = buf$ + CHR$S(tmp& AND &HFF) 'ı in String 


108 tmp& = tmp& / &H100 

109 NEXT i% 

110 SEEK #handle?%, 1 

111 PUT$ #handle%, buf$ 'ı aktualisieren 
112 status% = 0 


113 END SUB '!l ****%%*% AppendBlank **%*%** 

114 SUB Skip (handle?%, status?, n?) 
BE WERE DE EEE IRTEREN 
\ 

115 SHARED header$, ver%, rec&, headb%, reclen%, anzahl? 

116 SHARED feldname$(), £typ$(), laenge%(), komma?%(), recofs& 





117 LOCAL minl&, maxl&, tmp& 
118 status% = O 


119 minl& = headb% 'ıl Grenzen 
120 maxl& = headb% + (rec& * reclen?) 
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121 
122 
123 
124 
125 
126 
127 
128 


129 


130 


134 
132 


133 
134 


135 


136 


137 
138 


139 
140 


141 


142 








tmp& = recofs& + (reclen?% * n%) 
IF tmp& < minl& THEN '! Untergrenze prüfen 
status? = 1 
ELSEIF tmp& > maxl1& THEN 'ı Obergrenze prüfen 
status? = 1 
ELSE 
recofs& = tmp& 
END IF 
END SUB II Krk skip LE 2220 
SUB GotoBottom (handle%, status?) 


1 


SHARED header$, ver?%, rec&, headb?, reclen?, anzahl? 





SHARED feldname$ (), £typ$(), laenge%(), komma% (), recofs& 
status? = 0 

recofs& = headb% 'ı 1. Satz 

END SUB !! **kk%k%* GotoBottom **r#%%* 

SUB GotoTop (handle?%, status?) 


ViszssszeamasseszlzsasasiassasgesBimsas aan 


SHARED header$, ver?%, rec&, headb?, reclen?, anzahl? 





SHARED feldname$ (), £typ$(), laenge%(), komma% (), recofs& 
status? = 0 

recofs& = headb% + (reclen% * rec&) 'ı letzter Satz 

END SUB !'! *#**k%*%* GotoTop **t*%* 

SUB DBEof (handle%, status?) 


'ı Prüfe, ob EOF() der Datenbank erreicht ist 


1 


SHARED header$, ver?%, rec&, headb?, reclen?, anzahl? 





SHARED feldname$(), f£ftyp$(), laenge%(), komma%(), recofs& 
LOCAL tmp& 

status? = 1 

tmp& = headb% + (reclen? * rec&) 

IF recofs& < tmp& THEN 

status% = 0 'ı True 

END IF 
END SUB "1 ArKKKkr DBEof akrKkr 


Il x*** Ende ***%* 


341 
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Listing 6.12: DBF_LIB.INC 


DBDOC: Ein Anwendungsbeispiel 


Um den Umgang mit einer dBase-Datei zu demonstrieren, wurde das 
Programm DBDOC erstellt. Es soll den Inhalt einer DBF-Datei lesen und 
am Bildschirm dokumentieren. Nachfolgendes Bild zeigt einen Ausschnitt 
aus der Bildschirmdarstellung: 


DBASE III (DBF) DOC (ce) Born Version 1.0 
Files: 482452 


Header der DBASE III Datei 


Version .. 
Datum 

Records .. 
Header Länge ... 
Record Länge ... 


Weiter bitte eine Taste betätigen 


Feldbeschreibungen der Datei 


Bild 6.7: Ausgabe von DBDOC 


Dabei kann gleichzeitig der Umgang mit den Funktionen erläutert werden. 


Als erstes ist die Definition der globalen Variablen vorzunehmen. Hierzu 
ist die Anweisung: 


SINCLUDE "DB DEF.INC" 


in das Programm aufzunehmen. 


Nach der Kopfmeldung wird der Name einer DBF-Datei angefordert. Bei 
gültigen Eingaben ist anschließend die Datei mit USE zu öffnen. Bei 
fehlender Datei bricht das Programm über die Errorroutine ab. Bei 
erfolgreichem USE-Aufruf werden die Daten der globalen Variablen des 
Headers ausgegeben. Daran schließen sich die Feldbeschreibungen an. 


Nachdem im Hauptprogramm die Kopfdaten dokumentiert wurden, läßt 
sich auf die Sätze zugreifen. Der Aufruf GotoBottom positioniert den 
internen Schreib-/Lesezeiger auf den ersten Datensatz. Dann demonstriert 
eine FOR..NEXT-Schleife, wie sich die Datenbank satzweise lesen läßt. Die 
Positionierung auf die Folgesätze übernimmt das Modul Skip. 


Im nächsten Schritt verändert das Hauptprogramm den letzten Datensatz 
und sichert diesen mit PutRecord in der Datei. Beim Zugriff auf die Daten 
liegt der komplette Satz als ASCI-Text vor. An Hand der Felddefinition 
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läßt sich jedes Feld separieren. Beachten Sie aber, daß das erste Byte des 
Satzes zur Markierung gelöschter Daten dient. 


Der Zugriff auf die Sätze der Datenbank ist sicherlich nicht immer über 
die gezeigt FOR-Schleife erwünscht. Deshalb wird zusätzlich der Umgang 
mit der Prozedur DBEof gezeigt. Mit ihr lassen sich die Sätze in einer 
WHILE-Schleife lesen. Da GetRecord nach dem Lesen eines Satzes die 
Feldinhalte separiert und in der globalen Feldvariablen feldinh$() ablegt, 
lassen sich diese recht einfach auf dem Bildschirm anzeigen. 


Zum Abschluß des Demoprogrammes (DBDOC.BAS) wird noch ein leerer 
Datensatz mit AppendBlank eingefügt und mit dem Inhalt des vorletzten 
Satzes überschrieben. 


Bei Bedarf können sicherlich noch einige weitere Funktionen zur 
Ergänzung der Bibliothek entstehen. 


Das Beispielprogramm und die Module sind ausführlich kommentiert, so 
daß dem Umgang mit dBase-Dateien aus PowerBASIC-Programmen nichts 
mehr im Wege steht. Weitere Erläuterungen finden sich in nachfolgendem 
Listing. 


xREF /2=55 (ce) Born Version 1.0 
Datei : dbdoc.bas Datum : 07-20-1992 Seite : 1 
Zeile Anweisung 


KAKKKKKKKKKKAKKKKHKK KK KK KK KH KK KH KH KH KH KK KK KH KK KH KK KH KH KH KK KH AH HK KH KA ÜUO 


Ix* 
'ı File ı DBDOC.BAS 

'ı Vers. 1:0 

'ı Last Edit : 10.6.92 

'ı Autor : G. Born 

'ı Files : DBASE File 

'ı Progr. Spr.: PowerBasic 4.0 / 4.5 

U BEER... SYS. 3 -DOS'2.1.= 353 

'ı Funktion: Demonstration des Zugriffs auf DBASE III Daten- 
"1 bankfiles aus PowerBasic. Das Programm gibt den 
u Inhalt einer DBASE III Datei auf dem Screen aus. 
va Dabei wird insbesondere der Umgang mit den ein- 
u! zelnen Unterprogrammen gezeigt. 

| 

"1 

Ix* 

"1 


Aufruf: DBDOC 


KAKKKKKKKKKKAKKKKHKK KHK KK KK KH TH KH KH HK KH KH IK KH KK KH KK KH KK KH TH KH KH TH KH KK KH HK KH KH KU 


definiere die Header Datenstrukturen !!!!!! 





1 $INCLUDE "DB _DEF.INC" 


2 £ilenames = "" '! Dateiname 
3 ein? =1 'ı Filehandle 
4 ON ERROR GOTO fehler 'ı Fehlerhandler 


HH HH HH HH HH HH HH HH H HH HH HH HH HEHE HH 
'# Hauptprogramm # 
HH HEHE HH HH HH RHHHH HH HEHE HH HH HH HHH HEHE HH: 
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vonoau 


10 
11 
12 
13 


14 


15 
16 
17 
18 


19 
20 
21 
22 
23 
24 
25 
26 
27 
28 


29 


30 
31 
32 
33 


34 
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I ##H#H Kopf ausgeben H###H### 


CLS 'ı Clear Screen 
PRINT "DBASE III (DBF) DOC (ec) Born Version 1.0" 
PRINT 

INPUT "File : ", £filename$ '! lese Dateiname 
PRINT 

IF filename$ = "" THEN 'ı Leereingabe ? 
PRINT "Der Name der Eingabedatei fehlt" 

END 

END IF 

I a a a a Eee ar aa se a ae ea ee aan ne a Sense anna an 
u **%* Bearbeitung der DBASE III Datei *** 

DT a a a a ne a een 
CALL USE (ein?%, filename$,status%) 'ı öffne Datei 


IF status% <> 0 THEN 
PRINT "Fehler : "; status% 


'l *** Ausgabe des Headers der DBASE III Datei *** 
'ı Die Version gibt dabei an, ob intern Memofelder be- 
'! nutzt wurden (Version = 83H -> Memodatei) 








PRINT "Header der DBASE III Datei" 

PRINT 

PRINT "Version ":HEXS$ (ver%) 

PRINT "Datum ";ASC (MID$S (header$,4,1)) ;"."; 
PRINT ASC (MIDS (header$,3,1)) ;"."; 

PRINT ASC (MIDS (header$,2,1)) 

PRINT "Records ". rec& 

PRINT "Header Länge "; headb% 

PRINT "Record Länge "; reclen? 

PRINT 

INPUT "Weiter, bitte die <RET> Taste betätigen", tmp$ 





'! lese und decodiere die Feldbeschreibung der DBASE III- 
'ı Datei, es sind maximal 128 Felder zulässig 


PRINT "Feldbeschreibung der Datei ";filename$ 
PRINT 


PRINT "Feldname Typ Stellen Kommastellen" 
PRINT "----------- Ä---------- Ä--------- Ä------------- " 
FOR i% = 1 TO anzahl? 'ı n Felddefinitionen 
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35 PRINT feldname$ (i%) ;" Mi: 'ı Name des 
Feldes 
36 SELECT CASE ftyp$(i$%) '! gebe Feldtyp aus 


37 CASE "N" 











38 PRINT "Numerisch "; 

39 CASE "C" 

40 PRINT "Character "; 

41 CASE "L" 

42 PRINT "Logical LER 

43 CASE "D" 

44 PRINT "Datum Ur 

45 CASE "M'" 

46 PRINT "Memo m 

47 END SELECT 

48 PRINT USING "\ \##";" "‚laenge% (i%); 'ı Feldlänge 

49 PRINT " ";komma% (i%) nl 

Nachkommastellen 

50 NEXT i% 

51 PRINT "----------- Ä---------- Ä--------- Ä------------- 2 
'ı *** Hinweis: Die Recordlänge ist 1 Byte größer als dies 
"1 aus den Feldlängen ersichtlich ist, da 
"1 im ersten Byte des Records die Information 
un für gelöschte Sätze steht (*). 

52 PRINT "Recordlänge in Byte "; reclen? 

53 PRINT 


54 INPUT "Weiter, bitte die <RET> Taste betätigen", tmp$ 


55 PRINT "Datensätze der DBASE III Datei "; filename$ 

56 PRINT 

'ı Hier wird gezeigt, wie der Inhalt der Datei satzweise 
'! per FOR Schleife gelesen werden kann. 





57 CALL GotoBottom (ein, status?%) 'ı auf 1. Satz 


58 FOR i& = 1 TO rec& '! Schleife über alle 
Records 

59 CALL GetRecord (ein%, status%, satz$) '! lese Satz 

60 PRINT satz$ '! dokumentiere Satz 

61 CALL Skip (ein%, status%, 1) 'ı nächster Satz 


62 NEXT i& 


'! Der Inhalt des aktuellen Satzes wird verändert und in die 
'ı Datenbank zurückgespeichert 


63 satz1$ = " " + "Hallo" + MID$ (satz$,7) '! ändere Feld 1 
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64 CALL PutRecord (ein%, status%, satz1$) '! speichere Satz 
I ! a a a a a a a a a en En ne a an 
'!ı Alternativ besteht die Möglichkeit, die Datei satzweise 
'ı zu lesen, bis EOF() erreicht ist. Hierfür dient die 
'ı Funktion DBEof£f(). 
I ! an a an m ms am aan Man Vi m m m fin Ef m Aa, Sm a en a Ka msn m, u m gi 
65 PRINT "Lese Datei nochmals" 
66 CALL GotoBottom (ein, status?%) 'ı auf 1. Satz 
67 CALL DBEOF (ein%, status?) '! EOF erreicht ? 
68 WHILE status? = 0 
69 CALL GetRecord (ein%, status?,satz$) 'ı lese Satz 
70 FOR i% = 1 TO anzahl% '! gebe Felder aus 
71 PRINT feldname$ (1%), " : "; feldinh$ (i%) 
72 NEXT i% 
73 INPUT "Weiter, bitte die <RET> Taste betätigen", tmp$ 
74 CALL Skip (ein%, status%, 1) 'ı nächster Satz 
75 CALL DBEOF (ein%, status?) 'I EOF erreicht ? 
76 WEND 
77 PRINT "EOF Erreicht" 
78 INPUT "Weiter, bitte die <RET> Taste betätigen", tmp$ 
1 ! a nu a a rk a m m m a a 
'ı Es wird ein leerer Satz angefügt und mit dem Inhalt des 
'ı vorletzten Satzes überschrieben 
I ! a Ba an a aa a en au an ann 
79 PRINT "Leersatz anhängen" 
80 CALL AppendBlank (ein?) '! Leersatz anhängen 
81 CALL PutRecord (ein%, status?, satz$) 'ı alten Satz 
speichern 


82 INPUT "Weiter, bitte die <RET> Taste betätigen", tmp$ 


83 


84 
85 


86 


87 
88 


CLOSE 


PRINT "Ende DBDOC" 
END 


ı 


HH HH HEHE HH HH HH HEHE HH 
# Hilfsroutinen # 


HHHRRRRRRRRRRRRRRRRRIHERERERERERERERERE EEE HHHIEH 


! Fehlerbehandlung in DBDOC 


IF ERR = 53 THEN 


PRINT "Fehler: Datei nicht gefunden" 
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89 CLOSE 

90 END 

91 ELSE 

92 PRINT "Fehler : "; ERR; " unbekannt" 

93 PRINT "Programmabbruch" 

94 END 

95 END IF 

96 END 'ı MSDOS Exit 
97 RETURN 


98 $SINCLUDE "DBF_LIB.INC 


Il x*** Ende ***%* 


Listing 6.13: Listing des Programms DBDOC.BAS 


PCXV: Anzeige von PCX-Dateien 


Die weite Verbreitung des Programmes Paintbrush (ZSoft) führte dazu, 
daß das PCX-Format als Standard zur Speicherung von Pixelgrafiken 
benutzt wird. Viele Fremdprogramme können Bilder in diesem Format 
bearbeiten. Auch die Windows-Version von Paintbrush unterstützt das 
PCX-Format. Deshalb entstand die Idee, ein kleines PowerBASIC- 
Programm zur Anzeige von PCX-Dateien zu schreiben. 


Die nachfolgend aufgezeigte Lösung ist allerdings nur als 
Demonstrationsbeispiel für den Zugriff auf PCX-Files zu verstehen. Das 
Programm weist daher noch einige Mängel auf. So wird die Farbpalette 
aus der PCX-Datei nicht ausgewertet, die Bilder können demnach in 
falschen Farben angezeigt werden. Außerdem ist die 
Ausgabegeschwindigkeit auch auf 80386-Rechnern alles andere als 
berauschend. Für professionelle Zwecke kann wohl nicht auf Assembler 
und C verzichtet werden. 


Der Entwurf 


Das Programm soll nach dem Start den Namen einer PCX-Datei sowie 
gegebenenfalls eine Option erfragen. Anschließend ist die Datei zu öffnen, 
auf einen gültigen PCX-Header zu prüfen und als Grafik auszugeben. 
Alternativ kann der Dateiname bereits in der Kommandozeile mit 
angegeben werden: 


PCXV filename [/D] 

Die Option /D schaltet dabei den DEBUG-Modus ein, so daß, vor der 
Grafikausgabe einige Parameter der Datei mit angezeigt werden. Über den 
Befehl: 


PCxXV /? 
läßt sich der Text der Online-Hilfe aktivieren. In dieser Hinsicht gleicht 
das Programm den bisher vorgestellten Lösungen. 
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Vor der Implementierung möchte ich aber noch einige Hinweise bezüglich 
des PCX-Formates geben. 


Das PCX-Format 


Dieses Format erlaubt die Speicherung von Pixelgrafiken in Dateien. Die 
Datei besteht aus einem Header von 128 Byte und dem anschließenden 
Grafikteil. Der Header besitzt eine Struktur gemäß Tabelle 6.8. 


offset Bytes Bemerkungen 

00H d: 0AH als PCX-Signatur 

01H g5 PCX-Version 
0 = Version 2.5 
2 = Version 2.8 mit Palette 
3 = Version 2.8 ohne Palette 
5 = Version 3.0 

02H 1 Komprimierungsflag 
0 = keine Komprimierung 


1 = RLE Komprimierung 


03H 1 Bit pro Pixel (meist 1) 
04H 8 Koordinaten des Bildes 
OCH 2 horiz. Auflösung Bildpunkt 
0OEH 2 vert. Auflösung Bildpunkt 
10H 48 Color Map (16x3) 
40H 1 reserviert 
41H 1 zahl der Farbebenen (max. 4) 
42H 2 Bytes pro Bildzeile (gerade) 
44H 2 Palettedaten 

1 = Farbe - S/W 

2 = Graustufen 
45H 58 reserviert 


Tabelle 6.8: Format des PCX-Headers 


Das erste Byte enthält eine Signatur für gültige PCX-Dateien. Daran 
schließt sich eine Versionsnummer für die PCX-Version an. In der Version 
5 sind die Palettedaten nicht mehr im Header sondern am Dateiende 
gespeichert. Das Byte ab Offset 02H definiert die Codierungsart. Mit O 
werden die Daten uncodiert und mit 1 per RLE-Codierung gespeichert. Mit 
der RLE-Codierung läßt sich Speicherplatz sparen. Offset 3 gibt die Zahl 
der Bit pro Pixel an, wobei der Wert meist auf 1 gesetzt ist. 


Die Bildkoordinaten (X1,Y1,X2,Y2) finden sich als Worte ab Offset 04H. 
Interessant ist das Byte ab Offset 65 (41H), welches die Zahl der 
Farbebenen angibt. Der Wert ab Offset 66 definiert die Länge einer 
(unkomprimierten) Zeile in Byte. 


Bei der PCX-Version 2 sind ab Offset 16 (10H) die 16 Farben ä 3 Byte der 
Palette gespeichert. Bei der Version 5 befindet sich die Palette mit 256 
Farben ä 3 Byte in den letzten 769 Byte der Datei. Das erste Byte des 
Anhangs enthält dann die Signatur OCH. 
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Die Bilddaten schließen sich an den Header an. Ein Bild wird dabei 
zeilenweise abgetastet und in einzelnen Punkten gespeichert. Bei 
Farbbildern wird das Bild vorher in vier Ebenen mit den Grundfarben Rot, 
Grün, Blau und Intensität aufgeteilt. Dann wird die erste Zeile mit den 
Punkten der Farbe Rot gespeichert. Daran schließt sich die Zeile mit den 
Punkten der Farbe Grün an. Nach Grün folgt Blau und die Intensität. Erst 
wenn alle Farbebenen der ersten Zeile gespeichert wurden, schließt sich 
die nächste Zeile an. Nun muß noch unterschieden werden, ob die Daten 
codiert oder uncodiert vorliegen. Bei einer uncodierten Speicherung 
können die Bildpunkte gelesen und auf dem Bildschirm ausgegeben 
werden. Die Zahl der Bytes pro Zeile steht dann im Header. 


Bei der RLE-Codierung versucht man, mehrere gleiche Bildpunkte 
zusammenzufassen, um damit eine Bildkomprimierung zu erhalten. Für 
die RLE-Codierung gilt: 


« Sind die beiden oberen Bits (6,7) eines Bytes auf 1 gesetzt, liegt 
eine komprimierte Information vor. Die restlichen Bits O bis 5 sind 
dann als Wiederholzähler zu interpretieren. Das Folgebyte ist dann 
n mal zu wiederholen um die ursprüngliche Bildfolge zu erhalten. 


«e Sind die beiden oberen Bits (6,7) eines Bytes auf O gesetzt, liegt ein 
einfaches Datenbyte vor. Dann sind alle Bits als Bilddaten zu 
interpretieren. 


Die Hexcodesequenz: 

C3 33 07 41 

entspricht der Bilddatenfolge: 
33 33 33 07 41 


Bei Bildbereichen mit gleicher Farbe wird häufig die RLE-Codierung 
benutzt. 


Damit möchte ich die Beschreibung des PCX-Formates beenden. Wer sich 
für die Thematik interessiert, sei auf /7/ verwiesen, wo sich eine 
detaillierte Beschreibung verschiedener Formate findet. 


Die Implementierung 


Die Implementierung erfolgt in PowerBASIC, wobei verschiedene Module 
benutzt werden. Nachfolgend möchte ich kurz die Struktur des 
Programmes vorstellen. 


fehler 


Diese Prozedur fängt Laufzeitfehler ab und beendet das Programm mit 
einer Fehlermeldung. 


MOVE (len%, Ziel, Quelle) 
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Dies ist die bereits im Modul DBDOC benutzte Assemblerprozedur zum 
Kopieren mehrerer Bytes. Die Prozedur wird zur Typkonvertierung der 
Headerdaten verwendet. 


getheader (status%, header$) 


Dieses Modul erwartet in header$ die 128 Byte des PCX-Headers. Dann 
wird geprüft ob eine gültige PCX-Signatur vorliegt. Bei einem Fehler wird 
status%=1 zurückgegeben. Andernfalls zerlegt getheader die Headerdaten 
und speichert diese in globalen Variablen. Diese lassen sich dann durch 
das Hauptprogramm auswerten. Die Prozedur MOVE wird zur 
Typkonvertierung der Headerdaten benutzt. 


Plotline (x1%, y1%, lenx%) 


Diese Prozedur gibt lenx% Pixel einer Zeile an der Position x1,yl aus. Die 
Bildpunkte selbst sind in pixel%la,b) gespeichert. Beachten Sie, daß pro 
Zeile bei der Farbdarstellung vier Pixelreihen auszugeben sind. Der PSET- 
Befehl in PowerBASIC erwartet diese Werte im Parameter bit%. Deshalb 
sind die aufwendigen Maskierungen innerhalb der FOR-Schleife 
erforderlich. Weiterhin müssen 8 Bit pro Byte gespeichert werden. 


Das Hauptprogramm 


Das Hauptprogramm ist recht einfach aufgebaut. Nach der 
Variablendefinition ermittelt es den Dateinamen und die Optionen. Dann 
wird die Datei geöffnet und die 128 Byte des Headers gelesen. Nach der 
Decodierung lassen sich die Parameter für Testzwecke anzeigen. 


Nach der Aktivierung des Grafikmodus beginnt die Decodierung der 
Bilddaten. Eine FOR-Schleife geht dann über alle Zeilen eines Bildes. Die 
innere FOR-Schleife berücksichtigt dabei die Farbebenen. Die Zeile wird 
durch die WHILE-Schleife bearbeitet. Die Schleife wird abgebrochen, 
sobald die Zahl der Datenbytes pro Zeile erreicht ist. Mit Plotline lassen 
sich die Grafikdaten einer Zeile ausgeben. 


Die zahlreichen Bitoperationen sowie die Ausgabe über PSET führen zu 
einem recht langsamen Bildaufbau. Die direkte Codierung in Assembler 
bringt hier deutliche Vorteile. Da es sich lediglich um ein 
Demonstrationsprogramm handelt, habe ich auch darauf verzichtet, die 
Palettedaten auszuwerten. Daher kann die Farbdarstellung der Bilder vom 
Original abweichen. Hier ergeben sich sicherlich einige 
Verbesserungsmöglichkeiten. Die Einzelheiten sich dem folgenden Listing 
zu entnehmen. 


xREF /2=50 (ce) Born Version 1.0 
Datei : pcxv.bas Datum : 07-21-1992 Seite : 1 
Zeile Anweisung 


KAKKKKKKKKKKHAKKKKHKK KHK KK KK HK KH KH KH KH KH IK KH KK KH KK KH KK KH HK KH KH KH KH KK KH HK KH KH KU 


I 

' File : PCXV.BAS 
' Vers. a Ben 3) 

' Last Edit : 20. 5.92 
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' Autor : G. Born 
' File I/O : INPUT, OUTPUT, FILE, PRINTER 
' Progr. Spr.: POWERBASIC 
'! Betr. Sys. : DOS 2.1 - 5.0 


onsaurwm Hr 


HHHH 
WNHO%vV 


jan 
S 


15 


' Funktion: Das Programm zeigt einen PCX-Datei an. 


' Aufruf: PCXV Filename 
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I KAKKAKKKKHKKHTKK KK KHK KH TH KH HK KH KK KK KH KK KK KH KK TH TH TH KH KK KK TH KH KK KH KK KH KH AK AH KH KU &„ 


'ı Headervariable definieren 
signatur%=0 

Version?=0 

encoding%=0 

bits?%=0 


debug% = 0 '! Ausgabe Header 


ausschalten 


16 
Pixel 


17 
18 


19 


20 
21 
22 


23 
1.0" 
24 
25 
26 
27 
28 
29 
30 


'ı Puffer für 1 Zeile mit Bilddaten 
DIM pixel% (4,1024) '1 4 Ebenen a 1024 


breite% = 0 ! Pixel pro Zeile 
hoehe% = 0 '! Zeilen pro Bild 


ON ERROR GOTO fehler '! Fehlerausgang 


HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HEHE 
'# Hauptprogramm # 
HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HH 


kommando$ = COMMANDS$ 'ı Parameter ? 
IF LEN (kommando$) = 0 THEN 'ı User Mode ? 
CLS 'ı clear Screen 


PRINT "PCX - View (ce) Born Version 


PRINT 

INPUT "File : ", £ilename$ 

PRINT 

INPUT "Option /D: ",options$ 

PRINT 

ELSE 

ptr% = INSTR (kommando$,"/?") '! Option /? 
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vosaurwepnhH 


55 


56 
57 


58 
59 
60 


61 
62 
63 


64 


65 


66 
67 
68 
69 
70 


71 
72 
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IF ptr% <> 0 THEN 'ı Hilfsbildschirm 
PRINT "PCX- View (ce) Born Version 1.0" 
PRINT 
PRINT "Aufruf: PCXV <Filename> [/D]" 

PRINT 
PRINT "Zeigt eine PCX-Datei am Bildschirm an. Die" 
PRINT "Option /D schaltet den DEBUG-Mode ein." 
PRINT 
SYSTEM 
END IF 
'ı Kommando Mode 

ptr% = INSTR (kommando$,"/") 'l Optionen ? 

IF ptr® = 0 THEN 
filename$ = kommando$ '! nur Filename 
options$ = "" 

ELSE 
filename$ = LEFT$ (kommando$,ptr% -1)'! Filename separieren 
options$ = MIDS$S (kommando$,ptr%) 'ı Optionen separieren 

END IF 

IF filename$ = "" THEN '! Leereingabe ? 
PRINT 
PRINT "Der Dateiname fehlt" 

SYSTEM 

END IF 

END IF 


'! DEBUG-Option gesetzt (/D) 


options$ = UCASES$ (options$) 
ptr% = INSTR (options$,"/D") '! Debug-Option ? 


IF ptr%® > 0 THEN 
debug% = 1 '! DEBUG-Mode ein 
END IF 


' prüfe ob Datei vorhanden, nein -> exit 


OPEN filename$ FOR INPUT AS #1 'ı File exist? 
CLOSE #1 

OPEN filename$ FOR BINARY AS #1 'ı öffne Datei 

GET$S #1, 128, head$ 'ı lese Header 

CALL GetHeader (status?%, head$) 'ı decodiere Header 


IF (status% <> 0) THEN 

PRINT "Keine gültige PCX-Datei" 
CLOSE 

SYSTEM 
END IF 


IF debug% = 1 THEN 
PRINT "Header "; signatur?%; " "; Version% 
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73 
74 


96 
97 
98 
99 
100 
101 
102 
103 
104 


105 
106 


107 
108 
109 
110 
174 


112 


P 
P 


P 
P 
I 
EN 


Ss 


FOR 
FO 
b 


pP 
W 


1 


count% = byte% AND &H3F 
bcount% = bcount?% + count% 
GETS #1, 1, zchn$ 
byte% = ASC (zchn$) 
FOR 1% = 1 to count% 
pixel% (k%,ptr?) = byte% 
INCR ptr% 
NEXT 1% 
ELSE 
INCR bcount% 
pixel% (k%,ptr%) = byte% 
INCR ptr% 
END IF 
WEND 
NEXT k% 
'ı Bildzeile ausgeben 
Call Plotlinie (x1%, y1%+i?, 
NEXT i% 
tmp$ = INPUT$ (1) 
LOCATE 24,1 
PRINT 
PRINT "Ausgabe beendet" 
CLOSE 
END 
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RINT "Encoding ";encoding%;" Bits ";bits% 
RINT "Bild ";X1%;" ";Y1%;" ",x2%;" ",y2%; " Pixel ";x2%- 
RINT "Planes ";planes%;" Bytes/ (Zeile) ";bytel% 
RINT 
NPUT "Weiter, bitte eine Taste betätigen", tmp$ 
D>IE 
CREEN 12: CLS 'ı Graphikmode 
ite% = x2% - x1% 'ı Pixel / Zeile 
he? = y2% - y1% 'ı Zeilen / Bild 

i% = 0 TO hoehe?% 'ı alle Zeilen 
Rk% = 1 to planes% 'ı alle Farbebenen 
count% = 0 'ı decodierte Bytes 
tr® = 1 'ı Hilfszeiger 
HILE bcount% < bytel% 'ı lese n Bytes 


Datei sequentiell lesen und byteweise 


GETS #1, 
byte? 


1, zchn$ 
ASC (zchn$) 


IF byte% > &HCO THEN 


1 


bcount?%-1) 


1 


decodieren 
lese 1 Byte 
konvert. in Byte 


komprimiert ? 
Wiederholfaktor 
Zahl der Bildbytes 
Datenbyte 


generiere Daten 
speichere Byte 


Zahl der Bildbytes 
speichere Byte 


Dateien schließen 


"HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HHHHHH 
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'# Hilfsroutinen # 
HH HH 


113 fehler: 


114 IF ERR = 53 THEN 
115 PRINT "Die Datei ";filename$;" existiert nicht" 
116 ELSE 


117 PRINT "Fehler : ";ERR;" unbekannt" 

118 PRINT "Programmabbruch" 

119 END IF 

120 END 'ı MSDOS Exit 
121 RETURN 


122 SUB getheader (status?, header$) 


'! Lese die Daten des Headers in Variable 

123 SHARED signatur%, Version%, encoding?%, bits%, x1%, y1% 
124 SHARED x2%, y2%, hres%, vres%, colormap%, planes?%, bytel% 
125 SHARED palinfo% 

126 LOCAL ptr%, tmp$ 

127 DIM a%(2) 


'! setze die Infos im Header in Variable um 


128 status% = 0 

129 signatur% = ASC(MID$ (header$,1,1)) 'ı Signatur PCX-File 
130 IF signatur% <> 10 THEN '! teste Signatur 
131 status% = 1 

132 EXIT SUB 


133 END IF 

134 Version% = ASC(MID$ (header$,2,1)) 'ı Versionsnummer 
135 encoding% = ASC(MID$ (header$,3,1)) 'ı Kodierungsflag 
136 bits% = ASC(MIDS$S (header$,4,1)) 'ı Bits pro Ebene 
137 tmp$ = MID$ (header$,5,2) '! Xmin decodieren 
138 a%(1) = STRPTR(tmp$) 

139 a%(2) = STRSEG(tmp$) 

140 CALL MOVE (2,x1%,a%(1)) 

141 tmp$ = MID$ (header$,7,2) '! Ymin decodieren 
142 a%(1) = STRPTR(tmp$) 

143 a%(2) = STRSEG(tmp$) 

144 CALL MOVE (2,y1%,a%(1)) 

145 tmp$ = MID$ (header$,9,2) 'ı Xmax decodieren 
146 a%(1) = STRPTR(tmp$) 

147 a%(2) = STRSEG(tmp$) 

148 CALL MOVE (2,x2%,a%(1)) 
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149 tmp$ = MID$ (header$,11,2) '! Ymax decodieren 

150 a%(1) = STRPTR(tmp$) 

151 a%(2) = STRSEG(tmp$) 

152 CALL MOVE (2,y2%,a%(1)) 

153 planes% = ASC (MID$ (header$,66,1)) 'ı Planes decodieren 

154 tmp$ = MID$S (header$,67,2) '! Bytes pro Zeile 
decodiere 

n 

155 a%(1) = STRPTR(tmp$) 

156 a%(2) = STRSEG(tmp$) 

157 CALL MOVE (2,bytel%,a%(1)) 

158 bytel% = bytel% 

159 END SUB 

160 SUB Plotlinie (x1%,y1%,1lenx?%) 


161 
162 
163 


164 
165 
166 
Bit 
167 


168 
169 
170 
171 


172 
173 
174 
175 
176 
1:77 


178 


'ı CALL Plotline (....) 

'ı Die Prozedur gibt die Bilddaten in einer Zeile aus. 
SHARED planes?, breite% 

SHARED pixel%() () 

LOCAL i?%, k?%, ptr% 


ptr?% = x1% 
FOR i% = 1 TO lenx%+1 
mask% = 128 'ı oberstes 


FOR k% = 8 TO 1 STEP - 1 'ı alle Bits 
bit%=0 
IF (pixel% 
IF ( 
IF (pixel% 
IF ( 


THEN bit%=1 

THEN bit%=bit%+2 
THEN bit%=bit%+4 
THEN bit%=bit%+8 


AND mask% 
AND mask% 
AND mask% 
AND mask% 


<> 
<> 
<> 


oooo0 


<> 


PSET (ptr?%,y1%), (bit?) 
INCR ptr% 'ı next Point 
mask% = mask% / 2 '! next Bit 
NEXT k% 
NEXT i% 
END SUB 


SUB MOVE INLINE 

! CALL MOVE (LEN, ZIEL, QUELLE) 

! Die Prozedur verschiebt n Byte eines Strings in die 

! Zieladresse. Achtung: der String muß mit seiner Adresse 
! angegeben werden. 

'ı Bsp.: A$="AB" String 

| 

| 

I 





I DIM a% (2) Adress Dummy 
L X =0 ziel 
} a% (1) = STRPTR (AS) 
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De a% (2) = STRSEG (A$) 
ei CALL MOVE (2, X%, a5(1) verschiebe 2 Byte 


179 $INLINE "move.com" 
180 END SUB 


' ###### Programm Ende ##H#H####HH#H# 
Listing 6.14: PCXV.BAS 


HWINFO: Konfigurationsprüfung per Software 


Wer sich mit Rechnern beschäftigt, dem ist wohl folgendes Problem 
bestens bekannt: Da steht ein Personalcomputer zur Verfügung, über 
dessen Konfiguration keine Unterlagen vorhanden sind. Dann geht die 
Raterei los: wie groß ist der RAM-Bereich, wo liegen die BIOS-ROMs und 
welche Schnittstellen sind schon im Gerät vorhanden? Den Programmierer 
interessieren Informationen über die interne Belegung des Speichers oder 
der Festplatte. Das Studium der Hardwareunterlagen (falls überhaupt 
beschaffbar) ist aufwendig und führt nicht immer zum Erfolg. Man denke 
nur an die vielen importierten Systeme, zu denen keine Dokumentation 
existiert. Eine Analyse der technischen Unterlagen und der Hardware setzt 
weiterhin entsprechende Erfahrungen und Kenntnisse voraus. Fragen zur 
internen Aufteilung des Speichers oder der Festplatte lassen sich über 
diesen Ansatz prinzipiell nicht lösen. Wesentlich eleganter scheint die 
Möglichkeit einer Konfigurationsabfrage per Software. Wie dies 
funktioniert, wird in nachfolgendem Programm vorgestellt. Dieses 
Programm dokumentiert die wichtigsten Parameter des Systems per 
Bildschirm. 


Der Ansatz geht davon aus, daß MS-DOS ja ebenfalls wissen muß, welche 
Konfiguration vorliegt. Peter Norton und andere Insider haben diesen 
Gedanken bereits vor Jahren aufgegriffen, ohne aber die internen 
Funktionen offenzulegen. Der folgende Abschnitt beschreibt deshalb den 
Lösungsweg, um einem breiteren Kreis von Anwendern die Möglichkeit zu 
eigenen Erweiterungen zu bieten. 


Die Anforderungen 


Vor der Entwicklung dieses Programmes werden wieder die Anforderungen 
hinsichtlich der Funktionalität festgelegt. Wichtig ist sicherlich die 
Dokumentation der Belegung des Hauptspeichers. Hier interessiert nicht 
nur die Größe des Speichers, sondern auch die Lage des Bildschirm-RAM 
sowie die Adressen der diversen BIOS-ROMs. Bei der Softwareentwicklung 
ist vielleicht noch die Größe des durch das System belegten Speichers und 
die Startadresse des ersten Anwenderprogrammes relevant. Bild 6.8 zeigt 
den genauen Aufbau der Ausgaben des Programmes HWINFO. 
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System INFO (ce) Born Version 1.0 


Bios Version ............ 





MS - DOS Version 3.20 

RAM from 0000:0000 len 512 Kbytes 
RAM from 0000:0000 

ROM from E800:0000 len 8 Kbytes 
ROM from F800:0000 

User Progr. Adresse : 0E01:0000 
MS-DOS Free Memory : 464608 Bytes 
MS-DOS Used Memory : 59664 Bytes 
Disks A: 

Disk C: 21204992 Bytes 
Sektoren pro Cluster : 4 

Bytes pro Sektor : 512 

Cluster : 10354 

Freie Kapazität : 11415552 Bytes (53,8 %) 


Colorcard 80 x 25 Monochrom 


Serial Interfaces : 1 
Parallel Interfaces : 1 


Ende System Info 


Bild 6.8: Ausgabe der Konfiguration per Bildschirm 


Als erstes wird das Copyright des BIOS-ROM angezeigt. Dann folgt die 
Versionsnummer des Betriebssystems. Nur bei den Versionen unterhalb 
2.0 wird keine Unterversion angezeigt. Der Hauptspeicher muß ab Adresse 
0000:0000 beginnen und hat eine Länge von n Kbyte Beim 
Bildschirmspeicher wird nur dessen Anfangsadresse im Speicher 
angegeben. Aus dieser Information sowie aus dem Bildschirmmodus läßt 
sich auf die Speichergröße schließen. 


Die Prüfung auf ROM-Bereiche gibt in jedem Fall die Startadresse an. Läßt 
sich auch die Länge ermitteln, wird diese Information ebenfalls mit 
ausgegeben. Ansonsten wird der Speicher in 32-Kbyte-Schritten auf solche 
ROMs überprüft. Bei unvollständig codierten Adreßbereichen wird ein 
ROM an mehreren Stellen gespiegelt. Dies wird aus Aufwandsgründen 
nicht abgefangen, sondern die Adressen werden angezeigt. 


Die Startadresse des ersten Anwenderprogrammes ist in der Segment- 
Offset-Notation anzugeben (z.B. 0890:0000). Bei dieser Notation wird der 
1-Mbyte-Adreßraum in Segmente zu je 16 Byte unterteilt. Dies ergibt 
genau 65535 Segmente, die sich mit einem 16-Bit-Register adressieren 
lassen. Der Offsetwert gibt dann die Adresse relativ zum Segmentanfang 
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an. Die absolute (physikalische) Adresse läßt sich dann folgendermaßen 
berechnen: 


Adresse = Segment * 16 + Offset 


Die Zahl der Diskettenlaufwerke wird durch den jeweiligen 
Laufwerksbuchstaben (A:, B: etc.) angezeigt. Bei Festplatten und RAM- 
Disks erscheinen zusätzlich Informationen über die interne Organisation. 
Platten werden in Sektoren zu n Byte unterteilt. MS-DOS speichert 
standardmäßig 512 Byte pro Sektor. Zur besseren internen Verwaltung 
werden mehrere Sektoren zu einem Cluster kombiniert. Ausführliche 
Informationen über die interne Verwaltung von Festplatten und Floppys 
finden sich in /1/. Die Clustergröße sowie die Anzahl der Cluster auf dem 
Medium sind ebenfalls in der Anzeige dargestellt. Aus diesen Angaben läßt 
sich auch die Speicherkapazität eines Mediums bestimmen. 


Zum Abschluß ist die Zahl der Schnittstellen (seriell/parallel) und die Art 
des Grafikadapters anzuzeigen. 


Der Entwurf 


Nach der Definition der Anforderungen stellt sich die Frage, wie die 
Informationen zu ermitteln sind. Da MS-DOS die Konfiguration beim 
Systemstart ermittelt, läßt sich diese über verschiedene System- und 
BIOS-Funktionen ermitteln. 


Die Versionsnummer läßt sich einmal über das DOS-Kommando VER 
ermitteln. Durch den Basic-SHELL-Befehl kann dieses Kommando 
aktiviert werden. Aber DOS bietet einen anderen Weg über die Funktionen 
des Interrupt 21. (Leider können die Systemaufrufe nur kurz vorgestellt 
werden, da sonst der Umfang dieses Buches gesprengt wird. Für Leser die 
sich für den internen Aufbau von MS-DOS und die Schnittstellen zu den 
BIOS- und Systemaufrufen (INT 21) interessieren, bietet /1/ auf über 800 
Seiten ausführliche Informationen zu diesem Themen.) Doch nun zurück 
zur Ermittlung der Versionsnummer über die INT-21-Funktion 30H. 
Dieser gibt den Versionscode im Register AX zurück. Weitere Hinweise 
finden sich im Abschnitt über die Implementierung. 


Der nächste Schritt dient zur Bestimmung der RAM- und ROM-Bereiche. 
Hier besteht die Möglichkeit, innerhalb des 1-Mbyte-Adreßraumes einen 
Speichertest durchzuführen. In Schritten zu 4 Kbyte ließe sich prüfen, ob 
eine Adresse beschreibbar (RAM) ist. Enthält der Speicher nach dem 
Schreibvorgang (Wert auf 55H setzen) den Wert OFFH, ist die Adresse mit 
hoher Wahrscheinlichkeit unbelegt. Alle anderen Werte ungleich dem 
geschriebenen Wert deuten auf ROMs hin. Bei der Ermittlung der ROM- 
Bereiche wird diese Strategie auch verwendet. Ein RAM-Test ist in 
PowerBASIC aber recht aufwendig (PEEKE, POKE). Insbesondere ist vor 
dem Test das Interruptsystem zu sperren, um Systemabstürze zu 
verhindern. Deshalb wird die Speichergröße über den INT 12 des BIOS 
ermittelt. Dieser Aufruf gibt die Größe in Kbyte im Register AX zurück. Die 
Startadresse liegt fest auf dem Wert 0000:0000. Die Ermittlung des 
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Bildschirmspeichers geht ebenfalls recht einfach. Er kann auf den 
Segmentadressen AOOOH, BOOOH oder B8O0OH liegen. Es wird deshalb 
geprüft, ob an diesem Stellen Werte ungleich FFH vorliegen. In solchen 
Fällen wird ein RAM-Bereich gemeldet. Der BIOS-ROM-Bereich wird in 
Schritten zu 32 Kbyte auf Werte ungleich FFH abgefragt. Damit lassen 
sich auch die Anfangsadressen der ROMs bestimmen. 


Bleibt noch die Ermittlung der Startadresse des ersten 
Anwenderprogrammes und des freien Speicherbereiches. Hier wird mit der 
(undokumentierten) INT-21-Funktion 51H gearbeitet. Diese gibt die 
Segmentadresse des Programm-Segment-Prefix-Bereiches (PSP) wieder. 
Hierbei handelt es sich um einen Datenbereich von 255 Byte, der von MS- 
DOS vor jedes Anwenderprogramm geladen wird. Die PSP-Adresse des 
Programmes HWINFO gibt somit auch die Anfangsadresse des 
Anwenderprogrammes an. Aus der Speichergröße und dieser Adresse läßt 
sich dann der belegte und freie Speicher berechnen. Es wird aber 
vorausgesetzt, daß sich im oberen Speicherbereich keine residenten 
Programme befinden. 


Als nächstes ist die Zahl der Diskettenlaufwerke, der seriellen und 
parallelen Schnittstellen und der Modus des Bildschirmadapters zu 
ermitteln. Alle diese Daten werden vom BIOS direkt verwaltet und lassen 
sich durch den INT 11 abfragen. Bild 6.9 zeigt die Belegung des in Register 
AX zurückgegebenen Konfigurationswortes. 


AH AL 
15 8 7 0 


EFERFERFIELELETTTN 


Bit 0: 1 = Disk Drive vorhanden 


Bit 1: -- 
Bit 2-3: Speicherbänke auf der Hauptplatine 
00.=& LT; "VE =.2; 10 & 3; 11 = 4 
Bit 4-5: default Screen Mode 
00 illegal 


01 Color Card 40x25 monochr. 
10 Color Card 80x25 monochr. 
11 Monochrom Card 80x25 
Bit 6-7: falls Bit 1 = 1 => Zahl d.Floppy Drives 
00 =.4,10 =. 2. 102= 352 18:24 


Bit 8: Se 

Bit 9-11: Zahl der seriellen Schnittstellen 
BiE-12% Spieleadapter vorhanden 

Bit 13: Se= 

Bit 14-15: Zahl der parallelen Schnittstellen. 


Bild 6.9: Codierung des Register AX beim INT 11 (Hardware Test) 


Leider wird die Zahl der Plattenlaufwerke nicht mit angegeben. Dies ist 
historisch begründet, da in den Anfängen von MS-DOS Plattenlaufwerke 
zu teuer waren, um in Personalcomputern eingesetzt zu werden. Der INT- 
21-Aufruf ICH (get drive data) eignet sich aber zur Ermittlung der Daten 
von Festplattenlaufwerken. Mit Hilfe dieses DOS-INT-21 spricht das Modul 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


360 PowerBasic-Programmierhandbuch 


verschiedene Laufwerke an. Existiert ein Laufwerk, meldet DOS dies über 
das AX-Register. Bei Floppylaufwerken mißlingt der Versuch, falls sich 
keine Diskette im Laufwerk befindet. Auf dem Bildschirm erscheint die 
Fehlermeldung: 


Laufwerk nicht bereit .. 
Wiederholen, Ignorieren, Abbrechen .. 


Da aber die Zahl der Floppy-Laufwerken vom BIOS-Aufruf bekannt ist, 
sind nur noch die Kennbuchstaben (C:, D:) potentieller Festplatten 
abzufragen. Die Kapazität der Platte läßt sich anschließend durch den 
INT-21-Aufruf 36H ermitteln. 


Die Ausgabe der BIOS-Signatur setzt voraus, daß diese ab F800H abgelegt 
ist. Einige Hersteller verwenden allerdings modifizierte BIOS-Bausteine, 
die die Signatur an anderer Stelle enthalten. 


Die Implementierung 


Nach diesen Vorüberlegungen kann die Umsetzung in ein Programm 
erfolgen. Dieses gliedert sich wieder in mehrere Teile, um einen 
transparenten Aufbau zu erlangen. Auf ein Hierarchiediagramm wird an 
dieser Stelle verzichtet, da der Aufbau recht einfach ist. 


Nachfolgend werden die Funktionen der einzelnen Module beschrieben. 
Das Hauptprogramm ist recht kompakt, da es im wesentlichen die 
Unterprogrammaufrufe zur Ermittlung und Ausgabe der Konfiguration 
enthält. 


fehler 


Dieses Modul reagiert auf PowerBASIC-Laufzeitfehler. In diesen Fällen 
wird die Fehlernummer ausgegeben und HWINFO bricht ab. 


bios 
Es wird der Text ab Adresse F800 ausgeben. Bei vielen Rechnern findet 
sich hier die BIOS-Signatur. 


dosvers 


Die Versionsnummer der aktuellen DOS-Version wird per INT 21, 
Funktion 30H abgefragt. Ist der Wert in AL = 0, dann liegt eine DOS-1.x- 
Version vor. Ab DOS 2.0 enthält das Register AL die Hauptversion, 
während AH die Unterversionsnummer enthält. 


memory 


Das Programm ermittelt zuerst die RAM-Größe über den BIOS-INT 12. 
Dieser gibt das Ergebnis im Register AX in Kbyte zurück. Die Lage des 
Bildschirmspeichers wird durch Zugriffe auf die Segmente AODO0OH, BOOOH 
und B8SO0OH ermittelt. Finden sich hier Werte ungleich FFH, wird ein RAM- 
Bereich gemeldet. Dies ist zwar nicht ganz korrekt, funktioniert aber in der 
Regel. Dann ist der Bereich ab C000:0H in Schritten zu 32 Kbyte auf 
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ROMs abzufragen. Wird ab Offset O der Wert 55AAH gefunden, liegt ein 
BIOS-Erweiterungs-ROM vor. Die Länge steht dann ab Offset 3H. Bei 
anderen ROM-Bausteinen findet sich auf der betreffenden Offsetadresse 
meist ein Wert ungleich FFH, was zur Erkennung genügt. 


freemem 


Das Modul errechnet den freien und belegten DOS-Speicher aus der 
Programmstartadresse und der Speichergröße. Die betreffenden Module 
sind daher zuerst aufzurufen. 


progradr 


Das Programm ermittelt die Anfangsadresse des ersten 
Anwenderprogrammes über die INT-21-Funktion 51H (get PSP). Nach dem 
Aufruf findet sich die PSP-Adresse im Register BX. Diese ist identisch mit 
der Startadresse des ersten Anwenderprogrammes. 


config 


Hier erfolgt die Abfrage des BIOS-INT 11, der Informationen über die 
Hardwarekonfiguration liefert. Ist Bit 1 gesetzt, zeigt config über die Zahl 
der registrierten Laufwerke die logischen Laufwerksnamen an. 


Dann ermittelt das Programm per INT-21-Funktion 3600H, ob Hard- oder 
RAM-Disks vorhanden sind. Die Nummer der interessierenden Einheit ist 
im Register DX zu übergeben (1 = A:, 2 =B: etc.). Die Zahl der möglichen 
Laufwerke wird per Software auf maximal drei begrenzt. Der INT-21-Aufruf 
gibt auch die Informationen über die Aufteilung des Mediums wieder. Falls 
AX = OFFFFH gesetzt ist, existiert das Laufwerk nicht. Andernfalls gilt: 


AX = OFFFF -> Die Laufwerksnummer ist falsch 
sonst -> Zahl der Sektoren pro Cluster 


BX = Zahl der freien Cluster 
CX = Byte pro Sektor 
DX = Cluster pro Platte 


Mit diesen Informationen läßt sich der freie Speicherplatz in Byte und in 
Prozent bestimmen. 


Zum Abschluß wird die Zahl der parallelen und seriellen Schnittstellen 
ermittelt und ausgegeben. Diese befinden sich ebenfalls im 
Konfigurationswort, welches durch den INT 11 ermittelt wurde. 


Einzelheiten sind dem nachfolgenden Listing zu entnehmen. 


Verbesserungsvorschläge 


Insbesondere die Bestimmung der RAM- und ROM-Bereiche läßt sich 
durch einen direkten Speichertest erheblich verbessern. Auch die Anzeige 
der BIOS-Signatur ist noch verbesserungsfähig. 


xREF /2=55 (ce) Born Version 1.0 
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Datei : hwinfo.bas Datum : 07-22-1992 Seite : 1 


Zeile Anweisung 


IKAKKKKKKKKKHKTKH KK KK HK KK KHK TH KH TH KH KH KH KK TH KH TH KH KH KH KK KK IK KH IK AH KK TK AH KH A KH HK A KH KU) 
'ı File : HWINFO.BAS 

'ı Vers. 3, 12:0: 

'! Last Edit 2 66:54:92 

'ı Autor : G. Born 

'ı Files : INPUT, OUTPUT 

'ı Progr. Spr.: PowerBasic 

'! Betr. Sys. : DOS 2.1 - 5.0 

'ı Funktion: Das Programm wird mit der Eingabe: 
| 

| HWINFO 

ui 

Tal 

| 

"1 

Ix* 

"1 


aufgerufen. Es ermittelt die Konfiguration 
des PCs und gibt das Ergebnis auf dem 
Bildschirm aus. 
AAKKKAKKAKKKKKKKAKKHKKK KK KK KK TH HK KH TH KH KK KH KK TH KK TH KH KH KK AK KK KH TK AH KK KH A KH A KH KU & 
Variable definieren 
1 frei& = 0 'ı freier Speicher 
2 start& = 0 'l Startadresse 


HH HH HHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HH HH HH HEHE 
'# Hauptprogramm # 
HH HH HHRHHHHHHH HH HH HH HH HH HH HH HH HH HH HH HH HH HH HEHE 


3 ON ERROR GOTO fehler 


4 PRINT 
5 PRINT "System INFO (ce) Born Version 


6 PRINT 


CALL bios 
CALL dosvers 


7 ! Bios Copyright 
8 

9 CALL memory 

0 

1 


I} 

! DOS Versionsnummer 

! Speicherbelegung 
CALL progadr ! 
CALL freemem ! 


! Adr. Userprogramme 
freier Speicher 





12 PRINT "Weiter bitte eine Taste betätigen" 
13 DO WHILE INKEY$ = "": WEND 


14 CALL config "1 
Systemkonfigurierung 


15 PRINT 
16 PRINT "Ende System Info" 
17 END '! Ende 


"HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH HH HH HH HH HH HH HHHHHH 


'# Hilfsroutinen # 
HH HH 
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18 


19 
20 
21 


22 


23 


24 


25 
26 
27 
28 
29 
30 


31 


32 





1 
SI 


48 


fehler: 
Wa a Le et a N na a a ae BT a 
'ı Fehlerbehandlung in HWINFO 
a SESZR STE Erben Bis ansehe crdir 
PRINT "Fehler : ";ERR;" unbekannt" 
PRINT "Programmabbruch" 
END 'ı MSDOS Exit 
SUB bios 
TE ne a a a a a a a Fa a a N ee a a a a a N A a u 
'! lese Bios Signatur 
!l----- -------- -- -- -- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - 
LOCAL i% 
DEF SEG = &HF800 '! Segm. Bios ROM 
PRINT 
PRINT "Bios Version "; 
FOR i% = 3 TO 50 
PRINT CHRS (PEEK (1%)); 
NEXT i% 
PRINT 
END SUB 





SUB dosvers 


'! ermittle die DOS Version über die INT 21 Funktion 30 
'ı CALL: AH = 30 RETURN: AL = Untervers. AH = Hauptvers. 





LOCAL AH%, AL% 
REG 1, &H3000 '! AX = 3000 -> read 
'! Version 
CALL INTERRUPT &H21 'ı Dispatcher INT 
AH% = (REG (1) / 256) AND &HFF 'ı lese Wert in AH 
AL% = REG (1) AND &HFF 'ı lese Wert in AL 
PRINT 
IF AL? = O0 THEN '!ı AL = leer ? 
PRINT "MS-DOS Version 1.x" 
ELSE 
PRINT "MS-DOS Version "; '! Versionsnummer 
PRINT USING "##&"; ALS; "."; '! AL = Hauptversion 
PRINT USING "##"; AH% '! AH = Unterversion 
END IF 
END SUB 
SUB memory 


EN EEE EEE 


'! ermittle die RAM und ROM Speichergröße 
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49 PRINT 


ermittle die RAM Größe über den BIOS INT 12 
Ergebnis in AX in Kbyte 


50 CALL INTERRUPT &Hl2 'ı BIOS: GET RAM SIZE 
51 PRINT "RAM from 0000:0000 len "; 
52 PRINT REG (1);" Kbytes" 'l AX = Größe 


Prüfe die Lage des Bildschirmadapters auf Segment 
AOO00H, BO00H, B800H 


| 
| 
| 
| 


53 DEF SEG = &HA000 '! setze Segment 

54 IF (PEEK(0) <> &HFF) AND _ 'ı Bildschirm RAM ? 
55 (PEEK(1) <> &HFF) THEN 

56 PRINT "RAM from A000:0000" '! Segmentadr. 

57 END IF 

58 DEF SEG = &HBOO0O0 '! setze Segment 

59 IF (PEEK(0) <> &HFF) AND _ 'ı Bildschirm RAM ? 
60 (PEEK(1) <> &HFF) THEN 

61 PRINT "RAM from BO000:0000" '! Segmentadr. 

62 END IF 

63 DEF SEG = &HB800 '! setze Segment 

64 IF (PEEK(0) <> &HFF) AND _ 'ı Bildschirm RAM ? 
65 (PEEK(1) <> &HFF) THEN 

66 PRINT "RAM from B800:0000" '! Segmentadr. 

67 END IF 


'!ı Prüfe ab C000:0 in 32 Kbyte Schritten auf ROMs 


68 FOR i& = &HCO00 TO &HFFFF STEP &H800 '! teste ROM 

69 DEF SEG = i& '! setze Segment 
70 IF (PEEK(0) = &H55) AND _ 'ı ROM Signatur ? 
71 (PEEK(1) = &HAA) THEN 

72 PRINT "ROM from "; HEX$(i&) ;":0000";'! Segmentadr. 
73 PRINT " len "; PEEK(2); 'l Kbytes 

74 PRINT " Kbyte" 

75 ELSEIF (PEEK(0) <> &HFF) AND _ 'ı ROM Signatur ? 
76 (PEEK(1) <> &HFF) THEN 

77 PRINT "ROM from "; HEX$(i&) ;":0000" '! Segmentadr. 


78 END IF 
79 NEXT i& 


80 END SUB 
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81 SUB freemem 


82 SHARED start& 
83 LOCAL frei&, ram& 


84 CALL INTERRUPT &Hl2 'ı BIOS: GET RAM SIZE 

85 ram& = REG(1) 'ı RAM Größe 

86 ram& = ram& * &H3FF 

87 frei& = ram& - (start& * 16) '! berechne. freie 
Größe 

88 PRINT 

89 PRINT "MS-DOS Free Memory : "; 

90 PRINT frei&;" Kbyte" 'ı freier Speicher 

91 PRINT "MS-DOS Used Memory : "; 

92 PRINT start& * 16;" Kbyte" 'ı belegter Speicher 

93 END SUB 


94 SUB progadr 
ı 


! Ermittle die Anfangsadresse des Anwenderprogrammes 

! über die undokumentierte Funktion 51H des INT 21. 
'ı Diese gibt im Register BX die Segmentadresse des 

| 

| 





aktuellen PSP an. Dies ist gleichzeitig die Start- 
adresse der Anwenderprogramme. 

95 LOCAL res$ 

96 SHARED start& 


97 REG 1, &H5100 '! AX = 5100 -> read 
'! PSP Segm. Adr 
98 CALL INTERRUPT &H21 'ı Dispatcher INT 
99 IF (REG (0) AND &H01) > O THEN 'ı Fehler ? 
100 PRINT "Fehler beim Systemaufruf "; REG (1) '! AX = 
Fehlercode 
101 ELSE 
102 PRINT "User Progr. Adresse : "; 
103 start& = REG(2) 'ı merke Adresse 
104 res$ = HEX$ (REG(2)) '! Segm. Adr in BX 
105 res$ = STRING$S (4-LEN(res$) ,"0") + res$ '! führende Nullen 
106 PRINT res$;":0000" 
107 END IF 





108 END SUB 


109 SUB config 
Mieensseesanssesscassteslssesssessnerebssasnsssestssnssetsnn 


'! lese die Konfiguration der Hardware über den INT 11 


110 LOCAL ax%, drive?%, bytes&, frei&, disp%, i% , tmp& 
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111 DIM a%(2) 
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1 


Hilfsvariable für 


MOVE 
112 CALL INTERRUPT &Hl1l '! Lese Konfiguration 
113 ax% = REG(1) '! Wert in ax% 
114 PRINT 
115 IF (ax% AND 1) = 0 THEN '! Floppys ? 
116 PRINT "keine Diskettenlaufwerke gefunden " 
117 ELSE 
118 drive% = (ax% AND &HCO) / 64 'ı Floppys -> b14, b15 
119 PRINT "Disks"; SPACES$S (15); 
120 FOR i% = 0 TO drive% 'ı n Drives 
121 PRINT CHRS$S (&H41 + i%);": "; '! Kennbuchstabe A: 
F: 
122 NEXT i% 
123 END IF 
124 PRINT 
125 PRINT 
"1 
'ı ist eine Festplatte im System integriert ? 
'ı Platten befinden sich oberhalb der Floppys (C:, D:, etc.). 
'! Prüfe per INT 21, Funktion 1CH ob Platten vorhanden sind. 
| 
126 IF drive% < 2 THEN 'ı weniger als 1 
Floppy? 
127 drive% = 3 'ı Platte ab c: 
128 ELSE 
129 INCR drive? '! oberhalb Floppy 
130 END IF 
131 FOR i% = drive? to drive? + 2 'ı max. 3 Disks 
132 REG 1, &H3600 'ı Funktion 3600 
133 REG 4, 1% AND &HFF 'ı Laufwerkscode 
134 CALL INTERRUPT &H21 'ı INT 21 
135 IF (REG(1) AND &HFF) <> &HFF THEN 'ı Platte gefunden ? 
136 PRINT "Disk "; SPACE$S (15); CHR$S(&H40+41%) ;": "; 
137 tmp% = REG(A) 'ı Cluster 
| 
'ı Achtung: wegen I*2 ist eine Typkonvertierung erforderlich 
rııı! 
tt! ” 
138 a% (1) = VARPTR (tmp%) 'ı Adr. Variable 
übergeben!!! 
139 a% (2) = VARSEG (tmp%) 
140 clust& = 0 
141 CALL MOVE (2,clust&,a%(1)) 
142 bytes& = clust& * REG(3) * REG(1) 
143 PRINT bytes&; '! Speichergröße 
144 PRINT " Bytes" 
145 PRINT "Sektoren pro Cluster : "; REG(1) 
146 PRINT "Bytes pro Sektor : "; REG(3) 
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147 PRINT "Cluster : "; clust& 


148 tmp% = REG(2) 'ı freie Cluster 


1 


367 


'! Achtung: wegen I*2 ist eine Typkonvertierung erforderlich 


tk! 


1 


149 a% (1) = VARPTR (tmp%) 'ı Adr. Variable 
übergeben!!! 

150 a% (2) = VARSEG (tmp%) 

151 £fclust& = 0 

152 CALL MOVE (2,£clust&,a%(1)) 

153 frei& = £clust& * REG(3) * REG(1) 

154 PRINT "Freie Kapazität : ",; frei; 'ı in Bytes 

155 PRINT USING "Bytes (##.#"; (frei& * 100.0 / bytes&); 

156 PRINT " &)" 'ı in% 


157 END IF 
158 NEXT i% 


1 


'! Anzeige weiterer Informationen aus dem BIOS Aufruf 
| 


159 PRINT 

160 disp® = (ax% AND &H30) / 16 'ı Bildschirmadapter 
161 SELECT CASE disp% 

162 CASE 0 

163 PRINT "Illegal Display Mode" 

164 CASE 1 

165 PRINT "Colorcard 40 x 25 Monochrom" 
166 CASE 2 

167 PRINT "Colorcard 80 x 25 Monochrom" 
168 CASE 3 

169 PRINT "Monochromcard 80 x 25" 


170 END SELECT 


171 PRINT 

172 PRINT "Serial Interfaces : "; (ax% AND &HOEO0) / 512 
173 tmp& = (ax% AND &HCO000) / &HFF / &H2F 

174 PRINT "Parallel Interfaces : "; tmp& 


175 END SUB 

176 SUB MOVE INLINE 
177 $SINLINE "MOVE.COM" 
178 END SUB 


Ixkkk* Programm Ende **+*x*** 


Listing 6.15: HWINFO.BAS 
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Anhang A: ASCII-Tabellen 


Hex Dez ASCH 
00 10) NUL 
01 1 SOH 
02 2 STX 
03 3 ETX 
04 4 EOT 
05 5 ENQ 
06 6 ACK 
07 7 BEL 
08 8 BS 
09 9 HT 
OA 10 LF 
OB 11 VT 
0C 12 FF 
OD 13 CR 
OE 14 so 
OF 15 SI 
10 16 DLE 
11 17 DC1 
12 18 DC2 
13 19 DC3 
14 20 DC4A 
15 21 NAK 
16 22 SYN 
17 23 ETB 
18 24 CAN 
19 25 EM 
1A 26 SUB 
1B 27 ESC 
1C 28 FS 
1D 29 GS 
lE 30 RS 
1F 3l US 
20 32 SPACE 
21 33 ! 

22 34 5 

23 35 # 

24 36 $ 
25 37 % 
26 38 & 

27 39 ' 
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28 40 ( 
29 41 ) 
2A 42 * 
2B 43 + 
2C 44 

2D 45 - 
2E 46 ; 
2F 47 / 
30 48 0 
31 49 1 
32 50 2 
33 51 3 
34 52 4 
35 53 5 
36 54 6 
37 55 7 
38 56 8 
39 57 9 
3A 58 : 
3B 59 ; 
3C 60 < 
3D 61 = 
SE 62 > 
3F 63 ? 
40 64 @ 
41 65 A 
42 66 B 
43 67 6) 
44 68 D 
45 69 E 
46 70 F 
47 71 G 
48 72 H 
49 73 I 
4A 74 J 
4B 75 K 
AC 76 L 
4D 77 M 
4E 78 N 
4F 79 O 
50 80 P 
51 8l Q 
52 82 R 
53 83 Ss 
54 84 T 
55 85 U 
56 86 V 
57 87 Ww 
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58 88 X 
59 89 Y 
5A 90 Z 
5B 91 [ 

5C 92 \ 
5D 93 ] 

bE 94 N 
5F 95 er 
60 96 

61 97 a 
62 98 b 
63 99 c 
64 100 d 
65 101 e 
66 102 f£ 

67 103 8 
68 104 h 
69 105 i 

6A 106 j 

6B 107 k 
6C 108 1 

6D 109 m 
6E 110 n 
6F 111 o 
70 112 p 
71 113 q 
72 114 r 
73 115 Ss 
74 116 t 

75 117 u 
76 118 v 
77 119 w 
78 120 x 
79 121 y 
7A 122 Z 
7B 128 4 

7C 124 | 

/D 125 } 

TE 126 5 
/F 127 . 

80 128 C 
8l 129 ü 
82 130 € 
83 131 ä 
84 132 ä 
85 133 & 
86 134 & 
87 135 € 
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88 136 € 
89 137 € 
3A 138 € 
8B 139 i 
sc 140 i 
8D 141 i 
sE 142 Ä 
8F 143 Ä 
90 144 E 
91 145 x 
92 146 5& 
93 147 © 
94 148 6 
95 149 © 
96 150 ü 
97 151 ü 
98 152 
99 153 6 
9A 154 U 
9B 155 0 
9C 156 &£ 
9D 157 © 
9E 158 x 
9F 159  f 
AO 160 & 
Al 161 i 
A2 162 6 
A3 163 u 
AA 164 A 
A5 165 N 
A6 166 2: 
A7 167 °® 
A8 168 & 
A9 169 ® 
AA 170° - 
AB 171 % 
AC 172 
AD 173-3 
AE 174 « 
AF 175 « 
BO 176° 
Bl 177 + 
B2 178 2 
B3 179 

BA 180 

B5 181 Ä 
B6 182 Ä 
B7 183 A 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


372 PowerBasic-Programmierhandbuch 


B8 184 © 
B9 185 1! 
BA 186 ° 
BB 187 » 
BC 188 
BD 189 € 
BE 190 % 
BF 191 %& 
co 192 A 
eilt 193 Ä 
c2 194 Ä 
c3 195 Ä 
c4 196 - 
C5 197 Ä 
c6 198 ä 
c7 199 Ä 
c8 200 E 
cg 201 E 
CA 202 E 
CB 2038 E 
cc 204 | 
CD 205 I 
CE 206 I 
CF 207 6) 
DO 208 © 
D1 209 DB 
D2 210 E 
D3 2ll E 
D4 212 E 
D5 213  _ 
D6 214 | 
D7 2155 I 
D8 216 I 
D9 217 U 
DA 218 U 
DB 219 U 
DC 220 U 
DD DL: 4 
DE 222 |] 
DF 223 8 
EO 224 © 
El 225 8 
E2 226 © 
E3 227 © 
EA 228 Ö 
E5 229 6 
E6 230 u 
E7 231 P 
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ES 232 
E9 333- - U 
EA 234 U 
EB 235 U 
EC 236 5 
ED 237 % 
EE 238° 
EF 239 

FO 240 - 
Fl 24l + 
F2 242 = 
F3 243 3% 
FA 244 4 
F5 245 

F6 246 + 
F7 247 

F8 248 ° 
F9 249 

FA 250 

FB 2351 ı 
FC 252 

FD 253 2 
FE 25 _ 
FF 255 
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Stichwortverzeichnis 


113 

addtable 72 

addtxt 72 

anfang 144 
AppendBlank 336 
ASK 226 

Assembler 333 
ausgabe 22, 48 
Ausgabe 32 
Ausgabeumleitung 220 


Automatischer Programmstart 


245 
basex 182 
Batchdatei 227, 252 
Batchdateien 128, 141 
Bedienoberfläche 16 
Benutzerabfragen 18 
Benutzerführung 16 
Bildschirmanzeige 138 
Bildschirmrand 142 
Bildschirmsteuerung 317 
binäres Suchverfahren 65 
bios 361 
BIOS-Spielereien 307 
Buttons% 301 
CALC 174 
CloseBox 279 
Codelänge 10 


column 117 

COMI 29 

COMI: 310 

COMMAND 31 

config 362 

COPY 14 

Courier 48 

CRDEL 152 

Cross-Referenz-Liste 56 

CursorSize 318 

CUT 109 

Das Tastatur-Statusflag 308 

Dateikonvertierung 153 

Datum 15 

Datumsabfrage 243 

dBase 326 

DBDOC 343 

DBEof 337 

DBVIEW 326 

decode 181 

Decodierung 
Zahlenbasis 182 

Delimiter-Option 129 

DELX 213 

dosvers 361 

DR-DOS 6.0 39 

drivesx 315 

Druckbreite 15 
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Druckeransteuerung 235 GET 243 
Druckerspooling 28 GetCursor 319 
Druckerstatus 237 getdate 248 
Druckerwarteschlange 29 getfille 117, 132, 156 
Druckrand 15 getheader 351 
Druckseite GetMaxLen 280 
Abmessungen 44 GetMode 318 
DUMP 193 getop 181 
Einrückungen 89 GetPara 301 
ende 145 GetRecord 336 
endtest 48 getswitch 117, 132, 144 
ERRORLEVEL 227 gettime 248 
ESC 233 gettoken 71 
Extended-ASCIH-Code 230 getval 22, 117, 132, 144 
fehler 23 GotoBottom 337 
Fehlerausgang 23 GotoTop 337 
Fehlercode 227 HEADER.PS 44 
Fehlermeldungen 130 Hexadezimalsystem 174 
Fehlersuche 10, 89 HideCursor 301 
Feldtrennzeichen 129 Hierarchiediagramm 143 
fieldx 117 Hierarchiediagramme 12 
Filter 109 HWINFO 357 
FKEY 252 indexsequentielle Suche 67 
Flußdiagramme 13 install 32 
Font 40, 44 INT1O 317 
Fontdefinition 44 interaktiver Dialog 16 
Fontgröße 44 Interrupt 2FH 29 
Form Feed 22 keychk 71 
FORMAT 208 Kommandoebene 18 
Formatierung 93 Kommandozeile 141 
freemem 362 Kommandozeilenversion 18 
Freier DOS-Speicher 244 Kommentar 93 
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Kommentare 13 
Kontrollstrukturen 13 
kopf 181 

Kopfzeile 18 

Label 56 
Laufzeitfehler 23 
Laufzeitverhalten 10 
Lesezeiger 142 
Levelcode 93 
LISTER 14 

LPT1 29 

LPT1: 310 

LPT2: 310 
LPTSWAP 310 
Maschinencode 10 
Mauslnit 300 
Maussteuerung 300 
memory 361 
Menulnit 275 
MenulLine 279 
Menüsystem 272 
MODE 310 
Moduldiagramme 12 
More 194 

MOVE 333 
newscreen 145, 199 
NUMOFF 308 
Offset 142 
Online-Hilfe 19, 128 
OpenBox 278 





pageskip 21 
Paintbrush 348 
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Papierformate 15 
parameter 22 

park 315 

PASTE 127 

PCX-Format 349 

PCXV 348 

PenEmul 302 
Perforationsrand 15 
Plotline 351 

PopMenu 276 
Pop-up-Menü 272 
PostScript-Drucker 39, 161 
PostScript-Emulatoren 39 
PRINT 14, 29 

Printer 195 

printline 47 

Print-Screen 237 
progradr 362 
Programmablauf 13 
Programmentwicklung 10 
Programmentwurf 14 
Programmlistings 14 
PSCRIPT 161 

PSLIST 39 
Pufferverwaltung 143 
Pull-down-Menü 272, 295 
PullMenu 277 

PutLine 280 

PutRecord 336 
Querverweislisten 55 
redefine 47 
Referenztabelle 65 
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Ringpuffer 142 
SaveArea 279 
scanner 70 

Scanner 61, 94 
Schrift 40 
Schriftarten 235 
Scroll 319 

search 72 

Seitenkopf 48 
Seitennumerierung 15 
Seitenvorschub 15, 22 
SetCursor 318 
SetMode 318 
SetTCursor 302 
SetXRange 301 
SetXY 301 
SetYRange 302 
SHELL 29 

SHOW 138 
ShowCursor 301 

Skip 336 

Skip Line-Option 129 
skipblank 22, 118, 132 
spool 33 

SPOOL 28 
Stapelverarbeitungsdatei 18 
Strichdiagrammen 13 
Stringverwaltung 64 
Struktogramme 13 
Strukturdiagramme 13 
Suche 


Lineare 66 
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Syntaxanalyse 22 
Syntaxdiagramm 11,61 
Tastaturpuffer 255, 269 
TEMP 32 

Textbox 290, 321 
Textdateien 104 
TEXTS 218 
Textverarbeitung 152 
token 61 
Trace-Modus 128 
Trace-Option 129 
Typdefinition 61 
TYPE 138 
Umlautdefinitionen 47 
Unix 104, 139 

USE 335 

Variable 56 
Vereinigung von Textdateien 127 
VKEY 268 

vorspann 48, 167 
WAIT 266 

WC 104 

Wide 194 

Wildcard 128 
Wildcards 140 
Windows 39 

writeptr 200 

writeref 71 

writescr 200 

XCALC 257 

XFORM 88 

XPARK 314 
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Zeilennumerierung 140 


XPos% 301 
XREF 55 Zeilennummern 13, 15 
YPos% 301 Zeilenzahl 105 


Zahlenbasis 182 


PowerBasic-Programmierhandbuch - by Günter Born www.borncity.de 


